close

4193

Excel如何一次讓範圍內的數字都加1

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

image

建立副表格

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

image

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.點取「開發人員 > 插入▼鈕 > 按鈕」圖示。

image

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

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

image

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

image

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


arrow
arrow
    文章標籤
    VBA
    全站熱搜
    創作者介紹

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