Excel從壹個單元格中壹個字符的最後壹位提取所有數據，並用vba實現。

Dim arr1()為字符串

Dim arr2()作為字符串

Dim txt1，txt2，txt3為字符串

對於i = 1到範圍(" A65536 ")。結束(xlUp)。排

Arr1 () = split (cells (I，1)，"張三")

如果UBound(arr1)>那麽0

對於a = 1至欠載(arr1)

0 = txt 1 & amp；Left(arr1(a)，1)& amp；"+"

下壹個a

如果…就會結束

Arr2() = Split(Cells(i，2)，"張三")

如果UBound(arr2)>那麽0

對於b = 1至UBound(arr2)

txt2 = txt2 & ampLeft(arr2(b)，1)和amp"+"

下壹個b

如果…就會結束

txt 3 = txt 1 & amp；txt2

如果txt3 & lt& gt”“那麽

txt3 =左(txt3，Len(txt3) - 1)

細胞(I，3)。值= txt3

如果…就會結束

txt1 = " "

txt2 = " "

txt3 = " "

接下來我

末端接頭