打開您的Excel文件，按“Alt+F11”打開VBA編輯窗口，然後雙擊左邊相應的工作表，將下面的代碼粘貼到右邊的空白處。關閉VBA窗口。然後按Alt+F8打開“宏”窗口，選擇剛剛插入的宏，然後單擊“執行”。
Sub？QH()
暗淡？rg？作為？範圍
暗淡？何？作為？兩倍
為了什麽？每個？rg？在？範圍(" A1:A10 ")
何？=?何？+?IIf(IsNumeric(rg。值)，？rg。值，？0)
然後
MsgBox？他
結束？潛水艇