Excel如何修改宏的代码

显示全部楼层 · 2011-8-10 01:08:53

第一天选择的是：Range(\"H1225:AL1226\").Select
如何实现第二天选择的是：Range(\"H1226:AL1227\").Select
如何实现第三天选择的是：Range(\"H1227:AL1228\").Select
以此类推
请问：如何修改(\"H1225:AL1226\")？谢谢！

千问 · 2011-8-10 01:08:53

dimi
fori=0to100
range(\"H1225:AL1226\").offset(i,).select
next

<h4class=\"ask\">追问

先谢谢你对我的帮助，请问：如何将你写的代码代入到下面的宏？
Sub宏3()
\'
\'宏3宏
\'
\'快捷键:Ctrlz
\'
Range(\"H1225:AL1225\").Select
Application.CutCopyMode=False
Selection.AutoFillDestination:=Range(\"H1225:AL1226\"),Type:=xlFillDefault
Range(\"H1225:AL1226\").Select
EndSub

千问 · 2011-8-10 01:08:53

你的目的是什么

千问 · 2011-8-10 01:08:53

要求是：
第1天选择的是1225行H列至AL列的公式数据后，下拉填充到1226行H列至AL列；
到第2天只选择1226行H列至AL列的公式数据后，下拉填充到1227行H列至AL列；
到第3天只选择1227行H列至AL列的公式数据后，下拉填充到1228行H列至AL列，以此类推。

千问 · 2011-8-10 01:08:53

第一天应该1225行是最后一行的内容吧？
下面是宏代码，每天执行一次即可
Sub复制公式()
Dimi
i=Range(\"H65536\").End(xlUp).Row1
Range(\"H\"defds123idefds123\":AL\"defds123i).Select
Selection.FillDown
EndSub