Сбросить значение, только если оно содержит определенное значение

Question

Я хочу сделать кнопку, где, если я нажму, она опустится по всей колонке (например, B), и там, где она говорит «x», замените ее на «-», а затем выполните уже установлено условное форматирование. Спасибо (новое для этого вида программирования, уже пыталось несколько вещей, но не функционирует)

Private Sub CommandButton1_Click() 
    Item = Sheets("Sheet1").Range("B:B") 

    If (StrComp(Items, "x") = 0) Then 
     Items = "-" 
    End If 
End Sub  

Answer 1

использование Replace() метода Range объект:

если вы хотите полный матч:

Sheets("Sheet1").Range("B:B").SpecialCells(xlCellTypeConstants, xlTextValues).Replace what:="x", replacement:="-", lookat:=xlWhole 

если вы хотите частичный матч:

Sheets("Sheet1").Range("B:B").SpecialCells(xlCellTypeConstants, xlTextValues).Replace what:="x", replacement:="-", lookat:=xlPart 

Answer 2

Следующий код должен поставить вас на правильном пути:

Dim Sh As WorkSheet 
Set Sh = Sheet("Sheet1") 

Dim R As Integer 
For R = 1 To Sh.UsedRange.Rows.Count 
    If Sh.Cells(R, 2) = "x" Then Sh.Cells(R, 2) = "-" 
Next R