close

1.首先按ALT+F11開啟VBA視窗。

2.點取「插入 > 模組」指令,開啟一個空白模組頁面。

3.輸入下列程式:

Sub FILL()

   v = 0
   For Each c In [a1:j10]
      c.Value = v
      v = v + 1
   Next

End Sub


arrow
arrow

    錦子老師 發表在 痞客邦 留言(0) 人氣()