一个数据进行拆分，谢谢

还是疯子

如附件，sheet1是一个整体的，但是我想要拆分出来进行比对。
将MRAK的地方，一个逗号就是一个MRAK，拆分出来如sheet2，“拆分”
有一个共同点，就是逗号，数据的长短不一定，只要是逗号就拆分，分号、或者下一行空白的什么都不用。
谢谢。

hopeson2010

1. Sub yy()
   
2.    Dim arr As Variant, brr() As Variant
   
3.    Dim spl As Variant
   
4.    Dim i As Integer, j As Integer, k As Integer
   
5.       With Sheets("sheet1")
   
6.          arr = .Range("A1").CurrentRegion
   
7.       End With
   
8.       For i = 2 To UBound(arr)
   
9.           If arr(i, 3) = "" Then
   
10.              arr(i, 3) = arr(i - 1, 3)
    
11.           End If
    
12.           If arr(i, 4) Like "*,*" Then
    
13.                spli = Split(arr(i, 4), ",")
    
14.                For j = 0 To UBound(spli)
    
15.                     k = k + 1
    
16.                   ReDim Preserve brr(1 To 2, 1 To k)
    
17.                   brr(1, k) = arr(i, 3)
    
18.                   brr(2, k) = spli(j)
    
19.                Next j
    
20.           End If
    
21.       Next i
    
22.      Sheets("拆分").Select
    
23.         [A:A].ClearContents
    
24.         [a1:B1] = [{"NO.","Mark"}]
    
25.         Range("A2").Resize(k, 2) = Application.Transpose(brr)
    
26. End Sub
    

复制代码

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   With Worksheets("sheet1")
   
5.     r = .Cells(.Rows.Count, 4).End(xlUp).Row
   
6.     arr = .Range("a2:d" & r)
   
7.   End With
   
8.   ReDim brr(1 To 1000, 1 To 2)
   
9.   m = 0
   
10.   For i = 1 To UBound(arr)
    
11.     If Len(arr(i, 3)) <> 0 Then
    
12.       xm = arr(i, 3)
    
13.     End If
    
14.     crr = Split(arr(i, 4), ",")
    
15.     For j = 0 To UBound(crr)
    
16.       m = m + 1
    
17.       brr(m, 1) = xm
    
18.       brr(m, 2) = crr(j)
    
19.     Next
    
20.   Next
    
21.   With Worksheets("拆分")
    
22.     .UsedRange.Offset(1, 0).ClearContents
    
23.     .Range("a2").Resize(m, UBound(brr, 2)) = brr
    
24.     .Range("a1:b" & m + 1).Borders.LineStyle = xlContinuous
    
25.   End With
    
26. End Sub
    

复制代码

chxw68

详见附件。

李兴德

可以公式完成不?

李兴德

以逗号拆分数据.zip (9.95 KB, 下载次数: 15)

2018-9-11 08:04 上传

点击文件名下载附件