作者iBonus (iBonus)
看板Visual_Basic
标题Re: [VBA ] 有关使用AutoFill物件
时间Mon Jun 22 20:09:26 2009
※ 引述《jackyboss (阳光男孩)》之铭言：
: Sub DataGen()
: Dim Num As Integer
: Num = 100
: ActiveCell.FormulaR1C1 = "1/1/2010"
: Range("B1").Select
: ActiveCell.FormulaR1C1 = "星期五"
: Range("A1:B1").Select
: Range("B1").Activate
: 'Error所在,本来想用Num取代100 因为有Error 把Num改回100
: Selection.AutoFill Destination:=Range(Cells(100, 1), Cells(100, 2)),_
: ^^^ ^^^
1 Num
来源范围的列数 填入范围的最後一列
不是你要填的个数
如果要填的内容很简单，直接填入会比较省事
但如果要填的内容是公式，尤其是一长串公式
AutoFill就会有使用的价值了
另外，日期、星期应该是Value吧，
需要用Formula来填入？
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.229.2.185
1F：→ MOONRAKER:公式剪贴不就结了 真想看看是什麽公式要用到autofill 06/22 23:47
2F：→ MOONRAKER:formulaR1C1那是录下来的巨集里面的写法 06/22 23:47
3F：→ jackyboss:对阿~~是我录下来的巨集 06/23 22:13