excelVBA根据⼀列的逗号隔开值分⾏
Sub test1()
Dim h
Dim j As Integer
j = 0
Dim n1 As Integer '分⾏单元格在第⼏列
Dim m1 As Integer '填充到的列
Dim p As Integer '所有内容的列数
n1 = 1
m1 = 2
p = 4
'Application.ScreenUpdating = False
'For i = 1 To Range("a65536").End(xlUp).Row
For i = 2 To 16  '如果不能完全填充，加⼤这⾥的⾏数
'MsgBox i
i = i + j
h = Split(Cells(i, n1), "，") '如果需要根据多个标点符号分⾏，可以复制出⼀列，然后选择分⾏后粘贴到分⾏前的那⼀列进⾏覆盖，其余列正常填充空格，在每次分⾏时根据需求修改分⾏条件（这⾥按逗号分⾏，标点符号区分中英⽂）
'MsgBox i
'MsgBox UBound(h)
If UBound(h) > 0 Then
Rows(i + 1).Resize(UBound(h)).Insert
Cells(i, m1).Resize(UBound(h) + 1, 1) = Application.Transpose(h)
j = UBound(h)
'MsgBox UBound(h)
For num = 1 To j
For column = 1 To p '此循环为了控制粘贴值的列数，有多少列值需要复制就to 多少，哪⾥是填充拆分值的列，就在内层if处理，不进⾏向下填充
If column = m1 Then  '如果填充的是拆分填充的列，只要复制等于原单元格值即可，因为上⼀步拆分已做填充
Cells(i, column) = Cells(i, column)
Else '如果不是，则空单元格等于上⼀列值，num为之前每列添加空格的个数，通过num的for循环可以⼀⼀进⾏填充
Cells(i + num, column) = Cells(i, column)
End If
Next
Next
Else
Cells(i, m1) = Application.Transpose(h)
j = 0
End If
'If i < 2 Then
resize函数vba
'j = UBound(h)
'MsgBox "right"
'Else
'j = UBound(h)
'End If
Next
'Application.ScreenUpdating = True
End Sub