Question

EXCEL的VBA使用问题，我是新手，求助

把一张大表格按照A列的内容分成不同的表，数据从第四行开始，表头有三行，怎么把表头三行都复制进去啊，我现在只能复制第一行……不知道怎么并列一起复制

Sub test()
With ActiveSheet
r = 4
t = .Cells(r, 1).Value
Do Until t = ""
n =Application.WorksheetFunction.CountIf(.Range("a:a"),.Cells(r, 1))
Sheets.Add
activesheet.name=t
.Range("a1:h1").Copy Range("a1")

！！！应该就是上面这句的用语问题，不知道怎么用，求助 、 / & 都没用！！！！

.Cells(r, 1).Resize(n, 26).CopyRange("a2")
r = r + n
t = .Cells(r, 1).Value
Loop
End With
End Sub

Answer 1

建议你不要用activesheet来定位工作表，而用表名或者序号sheets(1)这种，不然你这换来换去的，你自己都扯不清了
你说要复制三行，为什么是.Range("a1:h1").Copy Range("a1") ，而不是.Range("a1:h3").Copy Range("a1")

Answer 2

.Range("a1:h1").Copy
改成.Range("a1:h3").Copy就3行了

Answer 3

什么问题你要说清楚才行

追问

对不起刚刚题目没写完

Answer 4

求助什么？你说清楚

追问

不好意思刚刚复制不完，麻烦您帮我看看

追答

.Range("a1:h1").Copy Range("a1") 改成 .Range("a1:h3").Copy Range("a1")
.Cells(r, 1).Resize(n, 26).CopyRange("a2") 改成 .Cells(r, 1).Resize(n, 26).Copy Range("a4") 然后再试试