将横向数据竖向放置

hnjz6700 · 发表于 2024-1-24 23:45

用VBA，将工作表“A”中数据转置后，在工作表“记录”中竖向放置，连续放4列后，隔4列再放置4列。

liulang0808 · 发表于 2024-1-25 08:04

Sub test()
arr = Sheets("A").UsedRange
Sheets("记录").Select
c = 13
sm = 0
For j = 5 To UBound(arr) Step 8
      Columns("a:l").Copy Cells(1, c)
      Cells(11, c + 4).Resize(32, 8).ClearContents
      For i = 0 To 7 Step 2
         cc = c + 4 + i

         If j + i <= UBound(arr) Then
            sm = sm + 1
            Cells(11, cc) = sm
            Cells(12, cc) = arr(j + i, 1)
            Cells(13, cc) = arr(j + i, 2)
         End If
      Next i
      c = c + 12
Next j

End Sub

liulang0808 · 发表于 2024-1-25 08:05

11111.zip (46.34 KB, 下载次数: 16)
表格位置对应，其他部分代码，楼主自己对应添加即可

外块300 · 发表于 2024-1-25 11:33

x = sheets("A").usedrange
sheets("记录").[a2].resize(ubound(x,2),ubound(x,1)) = application.transpose(x)

		自动登录	找回密码
密码			免费注册

[求助] 将横向数据竖向放置

评分