逗点分割一个单元格里数据，页码也增加

pcbnet

请大神帮忙写一个小代码，有2列数据，其中一列单元格数据需要用逗点分成不同行，然后页码也同之间一样。 sheet.rar (57.47 KB, 下载次数: 12)

2018-7-25 16:15 上传

点击文件名下载附件

Ref Des	PHYS_PAGE		Ref Des	PHYS_PAGE	效果
PLD1	430		PLD1	430
U80027	427		U80027	427
U80029,U80030,U80031	426		U80029	426
U80074	426		U80030	426
U80075	427		U80031	426
U80005,U80006	410		U80074	426
U80014	420		U80075	427
U80015	422		U80005	410
BMC1	399		U80006	410
U7000	534		U80014	420
U80056	462		U80015	422
SW2	167		BMC1	399
PJ77	1145		U7000	534
J266	103		U80056	462
J78	570		SW2	167
J85	61		PJ77	1145
PJ94	1140		J266	103
J214	498		J78	570
J91	481		J85	61
U52	53		PJ94	1140
U253,U254	214		J214	498
U225	63		J91	481
J9021	618		U52	53
J35	61		下面数据类似

pcbnet

请老师们帮忙了

jnsxmt

1. Sub test()
   
2.     Dim ar, m&, n&, k&, br, cr()
   
3.     ar = Range("e2:f" & Cells(Rows.Count, "e").End(xlUp).Row)
   
4.     For m = LBound(ar, 1) To UBound(ar, 1)
   
5.         If InStr(1, ar(m, 1), ",", 1) Then
   
6.             br = Split(ar(m, 1), ",")
   
7.             For n = LBound(br) To UBound(br)
   
8.                 k = k + 1
   
9.                 ReDim Preserve cr(1 To 2, 1 To k)
   
10.                 cr(1, k) = br(n)
    
11.                 cr(2, k) = ar(m, 2)
    
12.             Next
    
13.         Else
    
14.              k = k + 1
    
15.              ReDim Preserve cr(1 To 2, 1 To k)
    
16.              cr(1, k) = ar(m, 1)
    
17.              cr(2, k) = ar(m, 2)
    
18.         End If
    
19.     Next
    
20.     Range("j2").Resize(k, 2) = Application.WorksheetFunction.Transpose(cr)
    
21. End Sub

复制代码