返回列表 上一主題 發帖

[發問] 請教如何只刪除儲存格內的數值 而不刪除公式

[發問] 請教如何只刪除儲存格內的數值 而不刪除公式

想請教一下
我在網路上參考的清除指令如下
  1. Sub 清除()
  2. Beep
  3. If MsgBox("※確定要清除〔資料圖表區〕的記錄嗎? ", 4 + 32 + 256) = vbNo Then Exit Sub
  4. Call 共用使用
  5. Sht1.Rows("19:65536").ClearContents
  6. If ActiveSheet.Name = Sht1.Name Then ActiveWindow.ScrollRow = 1
  7. Beep
  8. End Sub
複製代碼
這個會將我Row 19以下的數值含公式全部刪除
不過我在(K19,K319)及(N19,N319)內有寫入簡單的公式
可以修改成只刪除數值不刪除公式嗎?
請問如何修改

回復 4# GBKEE

太感謝了 我原本也試過用(xlCellTypeConstants, 23)
不過也是如果儲存格有值的時候執行會成功,
清除後再執行就發生錯誤~感謝您

也感謝其他大大熱心的提供意見

TOP

        靜思自在 : 有時當思無時苦,好天要積雨來糧。
返回列表 上一主題