錦子老師

小婷婷：「錦子老師，請問若A2:Z1000儲存格皆有數值，A1:Z1是隨機出現0或1，假如A1儲存格出現0的時候，A2:A1000儲存格中數字的值都加1，請問有沒有快速的方式，可以一次全加，謝謝。」

建立副表格

步驟1.點取AB1儲存格輸入公式：「=IF(A1=0,A2+1,A2)」後，向右及向下複製公式到AB1:BA1000儲存格。

VBA

步驟2.按ALT+F11鍵開啟VBA視窗。

步驟3.點取「插入 > 模組」指令，建立一張空白模組表，輸入下列程序。

Sub test()

    Range("AB2:BA1000").Select

    Selection.Copy

    Range("A2").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

End Sub

步驟4.按ALT+F4鍵關閉VBA視窗。

按鈕製作

步驟5.點取「開發人員 > 插入▼鈕 > 按鈕」圖示。

步驟5.在工作表中畫一方框，產生按鈕。

步驟6.在【指定巨集】對話方塊，點取「TEST」項目。

步驟7.點取「確定」鈕，將來每點取按鈕一次會自動將第一列為0的欄自動加1。

⛔注意：這個活頁要儲存成啟用巨集的活頁簿。