UC知道EXCEL拆分表格
来源：百度知道 编辑：UC知道 时间：2024/06/15 22:29:12
我有一个表，大致如下 A B
1 一班 A1，B1，C1
2 二班 2A1，2B1，2C1
3 …… ……
4 …… ……
需要拆分成
A B
1 一班 A1
2 一班 B1
3 一班 C1
4 二班 2A1
5 二班 2B1
6 二班 2C1
7 …… ……
当然数据不可能只有这么一点，希望有人能够尽快地告诉我，谢谢！
如果答案对的可以追加财富，谢谢各位拉！
不知道是我错啦还是代码错啦，能详细点告诉我怎么使用马〉？？
1 一班 A1，B1，C1
2 二班 2A1，2B1，2C1
3 …… ……
4 …… ……
需要拆分成
A B
1 一班 A1
2 一班 B1
3 一班 C1
4 二班 2A1
5 二班 2B1
6 二班 2C1
7 …… ……
当然数据不可能只有这么一点，希望有人能够尽快地告诉我，谢谢！
如果答案对的可以追加财富，谢谢各位拉！
不知道是我错啦还是代码错啦，能详细点告诉我怎么使用马〉？？
Sub 用逗号分隔()
Dim i As Integer, j As Integer, k As Integer
Dim arr, brr
Dim a As String, b As String
Dim imax As Integer
imax = Range("A65536").End(xlUp).Row
arr = Range("A1:B" & imax)
k = 1
For i = 1 To imax
a = arr(i, 2) & ","
For j = 1 To Len(a)
If Mid(a, j, 1) = "," Then
k = k + 1
End If
Next j
Next i
brr = Range("A1:B" & k - 1)
k = 1
For i = 1 To imax
a = arr(i, 2) & ","
b = ""
For j = 1 To Len(a)
If Mid(a, j, 1) = "," Then
brr(k, 1) = arr(i, 1)
brr(k, 2) = b
b = ""
k = k + 1
Else
b = b & Mid(a, j, 1)
End If
Next j
Next i
Range("A1:B" & k - 1) = brr
End Sub
非常简单，数据——分列以逗号为分隔符
Sub test()
i