[已解决]求助简化填充代码

苗春雨 · 发表于 2012-9-26 11:38

求助简化填充代码和一个按钮运行2个表，见附件，谢谢

如何简化这个代码.zip (13.18 KB, 下载次数: 9)

风化石 · 发表于 2012-9-27 14:23

你想填充什么？
不要让别人去修改代码，直接重作来得更容易！

苗春雨 · 发表于 2012-9-27 15:05

在单元格A3，B3，C3，D3，E3，有公式，想把这些公式向下复制，到I列最后一个非空单元格止。请帮忙，谢谢！

风化石 · 发表于 2012-9-28 08:22

本帖最后由风化石于 2012-9-28 08:24 编辑

Sub 填充()
x = Range("I65536").End(xlUp).Row '行数
y = Sheets("表2").Range("I65536").End(xlUp).Row '行数
Range("A3:E3").Copy Range("A4:E" & x) '填表1
Sheets("表2").Range("A3:E3").Copy Sheets("表2").Range("A4:E" & y) '填表2
End Sub

如何简化这个代码.rar (10.12 KB, 下载次数: 8)

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

[已解决]求助 简化填充代码

相关帖子

[已解决]求助简化填充代码