一定要用VBA做嗎?
用複製貼上也很快
Range("A1:Z1").Select
Selection.Copy
Range("A2:Z10000").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:=False, Transpose:=False
AB2:
=IF(A$1=0,A2+1,A2)
將公式複製到AB2:BA10000。
按ALT+F11開啟VBA視窗,寫下列程序。
以後需要時執行即可。