[已解决]请将《原数据》的格式转换为 ...

持之以恒-

请将《原数据》的格式转换为《转置》中的格式。20140907.zip (14.56 KB, 下载次数: 9)

2014-9-7 22:12 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

xdragon

2014-9-7 22:32

1. Sub t()
   
2.   Dim arr, re(1 To 10000, 1 To 3), i&, j%
   
3.   arr = Sheets("原数据").Range("A1").CurrentRegion.Value
   
4.   For i = 1 To UBound(arr)
   
5.      For j = 1 To Len(arr(i, 3)) Step 2
   
6.         cnt = cnt + 1
   
7.         re(cnt, 1) = arr(i, 1)
   
8.         re(cnt, 2) = arr(i, 2)
   
9.         re(cnt, 3) = Mid(arr(i, 3), j, 1)
   
10.      Next
    
11.   Next
    
12.   Sheets("转置").Range("A1").Resize(cnt, 3) = re
    
13. End Sub

复制代码

跳转到最佳答案楼层

xdragon

1. Sub t()
   
2.   Dim arr, re(1 To 10000, 1 To 3), i&, j%
   
3.   arr = Sheets("原数据").Range("A1").CurrentRegion.Value
   
4.   For i = 1 To UBound(arr)
   
5.      For j = 1 To Len(arr(i, 3)) Step 2
   
6.         cnt = cnt + 1
   
7.         re(cnt, 1) = arr(i, 1)
   
8.         re(cnt, 2) = arr(i, 2)
   
9.         re(cnt, 3) = Mid(arr(i, 3), j, 1)
   
10.      Next
    
11.   Next
    
12.   Sheets("转置").Range("A1").Resize(cnt, 3) = re
    
13. End Sub

复制代码