使用“搜索並替換為VBA / Excel”

Question

遇到了我似乎無法解決的令人討厭的Excel / VBA問題-非常感謝您的幫助。

我在電子表格中有一個公式，其內容大致為：如果左側的單元格= 1，則單元格本身= on，否則，=“ off”。 是否可以編寫一些VBA搜索並替換運行時從“關閉”到“ totally_off”的代碼？

目前，它似乎只是在編輯公式本身，而我真的希望它刪除該單元格中的所有內容，然后將其替換為“ totally_off”

謝謝你的幫助。

Answer 1

下面的代碼應該工作。 只需將范圍B1:B10替換為要更改的公式所在的范圍即可。該過程將在公式中單元格左側立即測試單元格的值。 如果值為零，則將公式替換為“完全關閉”。

Sub totally_off()
    Dim rng As Range
    Dim cell As Variant
    Set rng = Range("B1:B10")
    For Each cell In rng
        If cell.Offset(0, -1).Value = 0 Then
            cell.Value = "totally off"
        End If
    Next cell
End Sub

這是非VBA，非搜索和替換的替代方案。

• 在“主頁”功能區上的“ Sort and Filter / Filter器”上，在公式列上設置Sort and Filter Filter 。
• 從該列的下拉菜單中選擇“關閉”。
• 在已過濾列的第一個單元格中鍵入“完全關閉”，然后將其復制到該列的底部。
• 然后卸下過濾器。 評估為“ on”的公式將保持不變。

Answer 2

不需要VBA-只需使用AutoFilter：

• 用開/關公式選擇列
• 套用自動篩選（ Ctrl - Shift - L
• 過濾off
• 同樣，選擇所有值
• 只需在公式欄中輸入您的替換值totally_off但按Ctrl- 輸入

做完了！