拆分单元串成单个细胞(Split cell string into individual cells

我无法在单个单元格的值分成两个不同的字符串，并把这两个字符串在不同的细胞。

比如我想借此测量10ft x 20ft在一个单元格的值，并采取10ft ，并把它在另一个单元格，并采取20ft并把它在一个完全不同的细胞。

我想用一个分隔符x或东西，但我只是不知道如何照顾好那些分离和拆分后与他们无关的东西。

任何提示将不胜感激。 我仍然很新的VBA宏。

谢谢

Answer 1:

最好的解决办法是使用SPLIT

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

或者，也许你可以使用InStr函数

Dim sVar1 as string
Dim sVar2 as string

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

现在你知道在哪里可以拆分INT两个变量

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

随着功能的问题是，如果你在链上具有几个按键与要分开你的函数会返回一个数组大。 例如：昏暗var当成字符串VAR =“×20XP 10XP”

回报

array (0) = "10"
array (1) = "p"
array (2) = "20"
array (3) = "p"

Answer 2:

你实际上并不需要VBA。 您可以使用Excel的文本分列

例如，在Excel的2010

1. 数据..... 分列
2. 挑选delimited ，然后点击下一步
3. 检查空间和其他 ，然后点击下一步把“X”
4. 完

Answer 3:

我想我只是需要看起来有点困难。

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

文章来源: Split cell string into individual cells