怎么用VBA将数据批量行列转换/转置

xuemei0216

Sub a()
Dim arr, brr
Dim i%, j%, n%, m%
arr = Sheets(1).[a1].CurrentRegion
ReDim brr(1 To UBound(arr) * UBound(arr, 2), 1 To 5)
For j = 2 To UBound(arr)        '不含标题
    For m = 1 To 4
        brr(n + 1, m) = arr(j, m)
    Next
    For i = 5 To UBound(arr, 2)
        If arr(j, i) <> "" Then
            brr(n + 1, 5) = arr(j, i)
            n = n + 1
        End If
    Next
Next
Sheets(2).[a1].CurrentRegion.Offset(1, 0).Clear
Sheets(2).[a2].Resize(UBound(brr), 5) = brr
End Sub

老貓

yxbaju 发表于 2019-9-8 22:41

没有能引出后面数据的标题行，改哪一句可以引出标题行？

老貓

martinmaster 发表于 2019-9-9 09:07
哦哦，谢谢提醒，是表名的原因,我的是中文的.谢谢.

没有能引出后面数据的标题行，改哪一句可以引出标题行？

老貓

xuemei0216 发表于 2019-9-17 17:03
Sub a()
Dim arr, brr
Dim i%, j%, n%, m%

没有能引出后面数据的标题行，改哪一句可以引出标题行？

robter

很好很好，学习学习

martinmaster

老貓 发表于 2019-12-8 13:45
没有能引出后面数据的标题行，改哪一句可以引出标题行？

应该是改这一句吧
For j = 2 To UBound(arr) 这里是说从第二行开始，
把2改成1就可以了
For j = 1 To UBound(arr)