Excel 自动分列实现一则
当一列中存放 1:n 数据，并使用特定符号分隔时，可使用“数据”-“分列”工具，将一个单元格内容依次分列。
例如：学生信息列表中，每个学生占据一行；学生的所选课程为表中一列，对于某学生选择的多个课程，各课程名使用特定符号分隔。
要简化分列操作，可采用VBA编写指令宏实现。
如下图所示，A列保存由分隔符分隔的数据，C1处指定分隔符，设置按钮，D列保存分列之后的数据：
按钮宏代码如下：
1 Sub 弄() 2 Dim SrcRi As Integer '定义用于遍历源数据的行索引 3 Dim TarRi As Integer '定义用于递增目标数据行的索引 4 SrcRi = 1 '初始化从1开始索引 5 TarRi = 1 '初始化从1开始索引 6 Dim MarkEnd As Boolean '定义用于外层循环结束的标记 7 MarkEnd = False '初始化标记为false 8 Dim Splitor As Variant '定义分隔符 9 Splitor = Cells(1, 3).Value '从单元格获取分隔符 10 While Not MarkEnd '进入外层循环，遍历源数据列 11 If IsEmpty(Cells(SrcRi, 1)) Then '判断当前遍历的源单元格是否为空 12 MarkEnd = True '为空则标记结束 13 Else 14 Dim Arr As Variant '定义保存分隔后字符串的数组 15 Arr = Split(Cells(SrcRi, 1), Splitor) '从当前遍历的源单元格分隔出字符串 16 For i = LBound(Arr) To UBound(Arr) Step 1 '进入内层循环，向目标列写入 17 Cells(TarRi, 4).Value = Arr(i) '向目标单元格写入一个分隔后的字符串 18 TarRi = TarRi + 1 '目标行索引加1 19 Next 20 End If 21 SrcRi = SrcRi + 1 '源行索引加1 22 'MsgBox SrcRi '调试用 23 Wend 24 End Sub
