使用搜索並用VBA/Excel替換

得到一個令人討厭的Excel/VBA問題，我似乎無法解決 - 希望得到任何幫助。使用搜索並用VBA/Excel替換

我在電子表格中有一個公式，表示沿着左側單元格= 1，然後單元格本身=開啓，如果不是，=「關閉」。是否有可能在運行時寫入一些VBA搜索並替換「關閉」到「totally_off」的代碼？

在它只是似乎是編輯公式本身，而我真的想刪除該單元格中的一切，只是用短語「totally_off」

感謝您的幫助取代它的那一刻。

來源

2013-05-28 user2429452

如果我的理解正確，可以進行搜索並替換爲尋找'* off *'並替換爲'完全關閉'。 – chuff

實際上，問題是這將取代公式中的任何單元格關閉，我只想修改這些單元格符合輸出「關閉」條件的單元格 – user2429452

謝謝，我現在遇到了問題。 – chuff

下面的代碼應該可以工作。只需將範圍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。
從列的下拉菜單中選擇「關閉」。
在過濾列的第一個單元格中輸入「完全關閉」並將其複製到列的底部。
然後刪除過濾器。評估爲「開」的公式將保持不變。

來源

2013-05-28 17:12:02 chuff

無需VBA - 簡單地使用自動篩選：

與開/關式
選擇列應用自動篩選（Ctrl鍵 - 移 - 大號
篩選器off
再次，選擇所有值
只需輸入你的重置價值totally_off入公式欄 - 但按Ctrl鍵 - 輸入

完成！

來源

2013-05-28 20:07:02

使用搜索並用VBA/Excel替換

回答

相關問題