Comment extraire du texte spécifique à partir d'une cellule?

Dans ce cas, je veux extraire le début du texte dans une cellule et de laisser le reste intact.
par exemple, une série de cellules contient:

2nd Unit. Miami
3rd Production Staff. Toronto
1st Ad. San Francisco

J'ai envie de casser ce sans l'aide du Texte de colonnes que de lignes précédentes sont formatées différemment, et ces dernières lignes sont des valeurs aberrantes que je veux traiter.

Je pensais que les Expressions Régulières peuvent le faire, mais cela semble un peu complexe.

Mon algorithme idée est la suivante:
1. prenez le voulait texte (quelle fonction ou sous le ferait?)
2. Passé le texte à son nouvel emplacement
3. Coupez le texte de la cellule, laissant le reste du texte.

Semble simple, mais je suis toujours wending mon chemin à travers VBA de la forêt, et à la cadence que je vais ça va plus vite de le faire à la main. Mais cela semble être une bonne occasion d'apprendre quelques astuces VBA.

TIA

Mise à jour:
Je veux prendre le texte jusqu'à l' ".\ "et le déplacer vers une autre colonne, en gardant le reste où il est.

  • Qu'entendez-vous par the beginning text? le premier caractère? le premier mot (jusqu'à un espace)? jusqu'à la première .? ou quoi?
InformationsquelleAutor Ken Ingram | 2012-09-23
  1. 2

    Puisque vous semblez vouloir modifier le texte de la cellule en place, VBA sera nécessaire.

    À l'intérieur d'une boucle qui définit cl de la cellule à traiter:

    str = cl.value
i = Instr(str, ".\")
cl = Trim(Mid$(str, i + 2))  ' assuming you want to exclude the ".\"
cl.Offset(0, 1) Trim(Left$(str, i - 1)) ' Places the original first part one cell to the right
    • Très agréable. Je vous remercie.
    InformationsquelleAutor chris neilsen
  2. 3

    VBA est inutile. Pour obtenir le texte après .\ dans la cellule A1: =MID(A1,FIND(".\",A1,1)+2,LEN(A1)) pour obtenir le texte avant .\ en A1: =LEFT(A1,FIND(".\",A1,1)-1).

    De l'information supplémentaire, Find retourne le placement dans la chaîne où .\ s'affiche. C'est l'équivalent de InStr en VBA. Si .\ n'est pas dans la cellule, il affiche #VALUE, parce que je n'ai pas pris la peine d'ajouter une vérification d'erreur.

    • Je veux que le texte jusqu'à et y compris .[espace], l'extraire et de laisser le reste, donc j'ai besoin de VBA.
    InformationsquelleAutor Daniel
  3. 0

    Pour le bien de la personne qui avait cette même question, ici, est entièrement testés, code de travail.

    Function RE6(strData As String) As String
  Dim RE As Object, REMatches As Object

  Set RE = CreateObject("vbscript.regexp")
  With RE
      .MultiLine = False
      .Global = False
      .IgnoreCase = True
      .Pattern = "[0-9][0-9][0-9][0-9]B"
      RE6 = .test(strData)
  End With

  Set REMatches = RE.Execute(strData)
  If REMatches.Count > 0 Then
      RE6 = True
  Else
      RE6 = False
  End If
End Function

Sub territory()
Dim strTest As String, str As String, cl As Range
  strTest = ActiveCell.Value
  Set cl = ActiveCell
  If RE6(strTest) = True Then
      str = cl.Value
      i = InStr(str, ". ")
      cl = Trim(Mid$(str, i + 2))
      cl.Offset(0, 1) = Trim(Left(str, i - 1))
      cl.Offset(0, 2) = "Instance"
      MsgBox RE6(strTest)
  End If
End Sub
    InformationsquelleAutor Ken Ingram