Fractionner les cellules de la chaîne dans des cellules individuelles

Je ne suis pas capable de diviser une seule valeur de la cellule en deux différentes chaînes et de mettre les deux de ces chaînes dans différentes cellules.

Par exemple je veux prendre une mesure 10ft x 20ft valeur dans une cellule et de prendre le 10ft et le mettre dans une autre cellule, et de prendre le 20ft et le mettre dans un de complètement différent de la cellule.

J'aimerais utiliser un délimiteur x ou quelque chose, mais je ne sais pas comment prendre ces séparations et de faire quelque chose avec eux, après la scission.

Des conseils seront très appréciés. Je suis encore assez nouveau pour les macros VBA.

Grâce

OriginalL'auteur cheapkid1 | 2012-10-22

  1. 5

    La meilleure solution est d'utiliser SPLIT

    Dim strX As String
Dim sx() As String
Dim i as Integer
strX = "10FT x 20FT"
sx = Split(strX, "x")

    Ou peut-être vous pouvez utiliser la fonction instr 

    Dim sVar1 as string
Dim sVar2 as string

I = InStr(1, strX, "x")

    Maintenant, vous savez où peut-split int deux variables

    sVar1 = mid(strX, 1, I)
sVar2 = mid(strx,i+1)

    Le problème avec la fonction que si vous avez plusieurs clés de la chaîne avec laquelle vous souhaitez vous séparer de votre fonction retournera un tableau plus grand.
    Par exemple:
    Dim var as string
    var = "x 20XP 10XP"

    retourne

    array (0) = "10"
array (1) = "p"
array (2) = "20"
array (3) = "p"
    Merci je vais essayer cette variation.

    OriginalL'auteur manuerumx

  2. 5

    Vous n'avez pas besoin de VBA. Vous pouvez utiliser Excel Colonnes de Texte

    Par exemple, dans excel-2010

    1. De données ..... Colonnes de texte
    2. Choisir delimited et appuyez sur Prochaine
    3. Vérifier Espace et mettre " x " dans Autres et appuyez sur Prochaine
    4. Finition

    Fractionner les cellules de la chaîne dans des cellules individuelles

    Wow, c'est-à portée de main. Je n'avais aucune idée que c'était là. Montre comment beaucoup je sais. Cependant, depuis que je suis l'automatisation de cette après-je obtenir le manuel de la portion de travail, je vais utiliser VBA pour juste le faire pour moi.
    superbe... a fonctionné comme un charme
    Si le Texte en Colonnes fonctionne alors vous pouvez l'utiliser à partir de VBA.

    OriginalL'auteur brettdj

  3. 0

    Suppose que j'ai juste besoin de regarder un peu plus difficile.

    Sub Split_CutArea()
Dim str1() As String
Dim str2() As String
Dim avarsplit As Variant

avarsplit = Split(Cells(4, "B").Value, "x")
splitValues = Split(ActiveSheet.Cells(4, "B").Value)

ActiveSheet.Cells(22, "B").Value = splitValues(0) & splitValues(1)
ActiveSheet.Cells(23, "B").Value = splitValues(3) & splitValues(4)   
End Sub
    Merci, que d'autres "End Sub' était une partie d'un Public de Classe, alors je viens de montrer la partie appliquée, la prochaine fois, je vais être plus prudent de supprimer ce qui n'appartient pas.

    OriginalL'auteur cheapkid1