用vba 做excel表格 一个sheet页转到另一个sheet页。求大神帮忙解决

Question

图一变成图二的样子 导出在不同的sheet页上
中间还要做一个循环，因为还有很多条数据

Answer 1

Sub 工资条()

r = Sheets(1).Cells(65536, 1).End(3).Row

l = Sheets(1).Cells(1, 256).End(1).Column

arr = Sheets(1).Range("a1:m1")

For x = 1 To r - 1

With Sheets(1)

brr = Range(.Cells(x + 1, 1), .Cells(x + 1, l))

End With

With Sheets(2)

Range(.Cells(3 * x - 2, 1), .Cells(3 * x - 2, l)) = Application.Transpose(Application.Transpose(arr))

Range(.Cells(3 * x - 1, 1), .Cells(3 * x - 1, l)) = Application.Transpose(Application.Transpose(brr))

.Cells(3 * x - 2, 1).NumberFormat = "@"

.Cells(3 * x - 2, 1) = Date

End With

Next

End Sub

Answer 2

要什么vba啊，直接公式就可以了
复制sheet1第1行到sheet2第1行
在a2输入：
=OFFSET(Sheet1!A$1,ROW(A3)/3,)
右拉
选择1到3行
下拉

Answer 3

从其他表转到第二表:
Sheets(2).select 或
Sheets("Sheet2").select '如果改了名，则换成改后的名字。

Answer 4

附件有操作视频

Answer 5

查一下“工资条”制作，很多案例。。。