Range 變數

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

1^# 跳轉到 »

發表於 2019-3-7 09:10 | 顯示全部帖子

回復 4# eric7765

Sub ex()
[A:C].ClearContents

Range("A1:B" & [d1]) = 1
[A11:B11].Resize([d1]) = 2
[A21].Resize([d1], 2) = 3
End Sub

按F8逐條執行查看

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

靜思自在 : 自己害自己，莫過於亂發脾氣。