VBA数据转换，两种结果

Chip_Kenny

1. Sub zz()
   
2. Dim ar, b(), c, n&
   
3. ar = Sheets(1).[a1].CurrentRegion.Value
   
4. ReDim b(1 To (UBound(ar) - 1) * 2, 1 To 1)
   
5. c = [a1].Resize(1, UBound(ar, 2)).Value
   
6. For i = 1 To UBound(b) Step 2
   
7.     n = (i + 1) / 2 + 1
   
8.     b(i, 1) = ar(n, 1) & ", " & ar(n, 2)
   
9.     For j = 3 To UBound(ar, 2)
   
10.         If Len(ar(n, j)) > 0 And c(1, j) <> ar(n, j) Then b(i + 1, 1) = b(i + 1, 1) & "," & ar(1, j) & "=" & ar(n, j)
    
11.         c(1, j) = ar(n, j)
    
12.     Next
    
13.     b(i + 1, 1) = Mid(b(i + 1, 1), 2)
    
14. Next
    
15. Workbooks.Add 1
    
16. [a1].Resize(UBound(b)) = b
    
17. End Sub

复制代码

czr0373

Chip_Kenny 发表于 2018-6-7 12:38

感激不尽，万分感谢