EXCEL的VBA使用问题,我是新手,求助
把一张大表格按照A列的内容分成不同的表,数据从第四行开始,表头有三行,怎么把表头三行都复制进去啊,我现在只能复制第一行……不知道怎么并列一起复制Subtest()With...
把一张大表格按照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 展开
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 展开
4个回答
展开全部
建议你不要用activesheet来定位工作表,而用表名或者序号sheets(1)这种,不然你这换来换去的,你自己都扯不清了
你说要复制三行,为什么是.Range("a1:h1").Copy Range("a1") ,而不是.Range("a1:h3").Copy Range("a1")
你说要复制三行,为什么是.Range("a1:h1").Copy Range("a1") ,而不是.Range("a1:h3").Copy Range("a1")
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
.Range("a1:h1").Copy
改成.Range("a1:h3").Copy就3行了
改成.Range("a1:h3").Copy就3行了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
什么问题你要说清楚才行
追问
对不起刚刚题目没写完
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
求助什么?你说清楚
追问
不好意思刚刚复制不完,麻烦您帮我看看
追答
.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") 然后再试试
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询