求助大神指点代码哪里错了。

yunwufengxue · 发表于 2019-1-23 08:20

刚刚涉及vba，想写个复制未知有多少行的数据到另一张表的代码（同一个工作薄上），就写了一下这段，可是就是运行不了，求指点是哪里错了。
Sub ra()
i = Sheets(1).Range("a65536").End(xlUp).Row
Range(1: i).Select.Copy Sheets(2).Range("a1")
End Sub

yunwufengxue · 发表于 2019-1-23 11:19

走过路过，都来看看。究竟是哪里的问题。求指导。

abc123281 · 发表于 2019-1-23 12:53

语法错误  已更正
Sub ra()
  i = Sheets(1).Range("a65536").End(xlUp).Row
  Range("a1:d" & i).Copy Sheets(2).Range("a1")
End Sub

yunwufengxue · 发表于 2019-1-23 16:12

abc123281 发表于 2019-1-23 12:53
语法错误已更正
Sub ra()
i = Sheets(1).Range("a65536").End(xlUp).Row

非常感谢。

yunwufengxue · 发表于 2019-1-23 16:19

abc123281 发表于 2019-1-23 12:53
语法错误已更正
Sub ra()
i = Sheets(1).Range("a65536").End(xlUp).Row

Range("a1:d" & i)这个是什么意思？

abc123281 · 发表于 2019-1-23 18:44

动态获取已使用的单元格区域

yunwufengxue · 发表于 2019-1-23 21:34

本帖最后由 yunwufengxue 于 2019-1-23 21:39 编辑

abc123281 发表于 2019-1-23 18:44
动态获取已使用的单元格区域

再请问，我测试了第一次成功了，第二次运行流畅，但是就是没有结果，就是说没有报错，也没有复制，是什么问题？

abc123281 · 发表于 2019-1-23 22:00

建议上传附件来查看

yunwufengxue · 发表于 2019-1-23 22:35

abc123281 发表于 2019-1-23 22:00
建议上传附件来查看

再次麻烦你看看神马问题

abc123281 · 发表于 2019-1-23 22:44

Sub ra()
Worksheets("sheet1").Range("a1:a10") = 1
Worksheets("sheet1").Range("a1:a10").Copy Worksheets("sheet2").Range("a1")
End Sub

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

求助大神指点代码哪里错了。

最新热点 /1