VBA，用VBA进行分列（拆分列）的2种方法

1 方法1：原列上分列

Range("a:a").TextToColumns other:=True, otherchar:=";"

sub test9()
'拆分列的方法1
Range("a:a").TextToColumns other:=True, otherchar:=";"

end sub

2 方法2：  split（）+dictionary 的方法

• 注意点
• 1 下面的代码默认是要至少处理1个数组，所以如果只有1个单元格无法形成单元格会报错！
• 2 下面的代码默认要拆分的是D列，如果是A列和其他列，得自己改一下
• 这个还是只能做到以1个符号为界，拆分一次，

2.1  代码

Sub test10()

'拆分列的方法2
Dim dict1 As Object
Set dict1 = CreateObject("scripting.dictionary")

maxr1 = Range("d65536").End(xlUp).Row
arr1 = Range("d1:d" & maxr1)

For Each I In arr1
    dict1(I) = Split(I, ";")
Next

arr2 = dict1.Keys()
arr3 = dict1.Items()

For J = LBound(arr3) To UBound(arr3)
    m = 1
    For Each K In arr3(J)
        Cells(J + 1, 4 + m) = K
        m = m + 1
    Next
Next


End Sub

3 如果要一次循环，拆分有多个符号得列呢？

• 比如这种
• 可能重点是，考虑好怎么输出，每次拆分后都会发生变化。。。
• 考虑中....

有的数据里需要拆多次。。。

1;0,7;1|2;0,8;1|3;0,9;1

考虑下这个问题，其实是有点难的

• 第1步，第一次用split()拆分后的数据，要考虑数据拆分后的长度，拆分个数可能是不同的。那么第一次拆分后的数据，是从1列相同的单元格字符串变成了，长短不一的N行
• 第2步，得遍历拆分出来得列，第2次用split()拆分，还要考虑拆分出来得数放哪儿，也就是每一个单元格还要继续展开，这样就展开为一张二维表了。有点麻烦

• 如果都是标准的呢。比如都是固定得几个同样得分隔符，这倒是常见情况
• 那么第步拆分出来得数据，列占用就是固定得，后面第2步还是一样
• 所以，是否有通用的拆分VBA？层次可能最多2层？
• 因为第2层数据的对应关系怎么放呢？ 二维表的基础上，对1维展开变成一张新的二维表？好像也可以，有时间试试

3.1 一个把第1步的结果继续往下拆的代码

• 局限性就是得单独写，取出要得那一部分
• left() 
• right()
• mid()

Sub chai2()

'     arr2 = Worksheets("raw").Range(Cells(3, 5), Cells(3, 5 + 128))
'     For Each i In arr2
'         Worksheets("raw").Range(Cells(4, 5), Cells(4, 5 + 128)) = WorksheetFunction.Right(i, Len(i) - Application.Find(";", i) + 1) '能不能只取split的一部分？，倒是right+find可以的
'     Next
    
     For i = 5 To 128 + 5
         Worksheets("raw").Cells(4, i) = Right(Cells(3, i).Value, Len(Cells(3, i).Value) - WorksheetFunction.Find(";", Cells(3, i).Value, 5))
     Next
    
    
End Sub

 

3.2 把第一步得中间结果，第2步继续拆展开为一个二维表数据，暂时是个构想，有空了再写试试

Sub chai3()

   '如果只拆1个字符串，如果只有2种分割符     '很难有通用的
   '而且要得到多个，可以这么搞
   
   
End Sub