→ MOONRAKER:公式剪貼不就結了 真想看看是什麼公式要用到autofill 06/22 23:47
→ MOONRAKER:formulaR1C1那是錄下來的巨集裡面的寫法 06/22 23:47
→ jackyboss:對阿~~是我錄下來的巨集 06/23 22:13
※ 引述《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