在sql里，如何將橫向數(shù)據(jù)改成縱向數(shù)據(jù)結(jié)構(gòu)？如果這些數(shù)據(jù)表大小一致（橫向縱向所占單元格數(shù)量一樣），排列規(guī)律（間隔相同的列數(shù)），可以用vba代碼實現(xiàn)?？梢栽囈幌?，如下代碼。Sub 橫變豎() Dim i

在sql里，如何將橫向數(shù)據(jù)改成縱向數(shù)據(jù)結(jié)構(gòu)？

如果這些數(shù)據(jù)表大小一致（橫向縱向所占單元格數(shù)量一樣），排列規(guī)律（間隔相同的列數(shù)），可以用vba代碼實現(xiàn)?？梢栽囈幌拢缦麓a。Sub 橫變豎() Dim i As Long i = 1 For i = 1 To ActiveSheet.UsedRange.Columns.Count 12 1 Step 1 ActiveSheet.Range("A1:K23").Offset(0， i * 12).Select Selection.Cut ActiveSheet.Cells(i * 23 1， 1).Select ActiveSheet.Paste Next i End Sub