[已解决]指定行提取 代码语法错误

czl103

详见附件，在运行代码之后，提示语法错误，相关错误代码如下：
Sheets(i).Range("a6:i6").Copy Destination:=Sheets("sheet1").Range("a" & LastRow).
Offset(1, 0) '复制到特定非空行的下一行



麻烦大神给看一下，谢谢！

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-8-4 14:45

跟我的想法一致。
Sheets(i).Range("a2:a1000").Copy Destination:=Sheets("汇总表").Range("a" & LastRow).Offset(1, 0)
Sheets(i).Range("c2:c1000").Copy Destination:=Sheets("汇总表").Range("b" & LastRow).Offset(1, 0)

跳转到最佳答案楼层

大灰狼1976

分行不是这样写的，要么恢复1行，要么这样：
Sheets(i).Range("a6:i6").Copy Destination:=Sheets("sheet1").Range("a" & LastRow). _
Offset(1, 0)

czl103

大灰狼1976 发表于 2017-8-4 11:33
分行不是这样写的，要么恢复1行，要么这样：
Sheets(i).Range("a6:i6").Copy Destination:=Sheets("sheet1 ...

谢谢，按您的提示改了一下，可以提取出来了。
现在的问题是，我想只提取A列和C列的数据，结果确是A列到C列的数据，麻烦您帮忙看一下，需要怎么修改：
这是相关代码（详见附件）：
Sheets(2).Range("a1", "C1").Copy Destination:=Sheets("汇总表").Range("A1", "C1") '表头

For i = 2 To Sheets.Count '遍历工作表

LastRow = Sheets("汇总表").Cells(Rows.Count, 1).End(xlUp).Row '判定最后非空行

Sheets(i).Range("a2:a1000", "C2:C1000").Copy Destination:=Sheets("汇总表").Range("a" & LastRow). _
Offset(1, 0) '复制到特定非空行的下一行

大灰狼1976

你这个用union也不可行，只能A列和C列分开COPY了。

czl103

大灰狼1976 发表于 2017-8-4 13:41
你这个用union也不可行，只能A列和C列分开COPY了。

嗯 关键是还有个标题部分 我自己分开提示错误 麻烦您帮忙给提示下咋分

czl103

大灰狼1976 发表于 2017-8-4 13:41
你这个用union也不可行，只能A列和C列分开COPY了。

这是我修改的部分：

Sheets(2).Range("a1").Copy Destination:=Sheets("汇总表").Range("A1") '表头
Sheets(2).Range("C1").Copy Destination:=Sheets("汇总表").Range("B1") '表头

For i = 2 To Sheets.Count '遍历工作表

LastRow = Sheets("汇总表").Cells(Rows.Count, 1).End(xlUp).Row '判定最后非空行

Sheets(i).Range("a2:a1000").Copy Destination:=Sheets("汇总表").Range("a" & LastRow). _
Offset(1, 0) '复制到特定非空行的下一行
Sheets(i).Range("C2:C1000").Copy Destination:=Sheets("汇总表").Range("b" & LastRow). _
Offset(1, 0) '复制到特定非空行的下一行

大灰狼1976

跟我的想法一致。
Sheets(i).Range("a2:a1000").Copy Destination:=Sheets("汇总表").Range("a" & LastRow).Offset(1, 0)
Sheets(i).Range("c2:c1000").Copy Destination:=Sheets("汇总表").Range("b" & LastRow).Offset(1, 0)

czl103

大灰狼1976 发表于 2017-8-4 14:45
跟我的想法一致。
Sheets(i).Range("a2:a1000").Copy Destination:=Sheets("汇总表").Range("a" & LastRow ...

牛  谢谢狼版[em17]

czl103

大灰狼1976 发表于 2017-8-4 14:45
跟我的想法一致。
Sheets(i).Range("a2:a1000").Copy Destination:=Sheets("汇总表").Range("a" & LastRow ...

请教下，我那条代码跟这个差异好像就是一个下划线"_",能解释下为啥不？

大灰狼1976

代码换行符为空格+下划线，不是在语句中任何地方都适用。