特定の値が含まれている場合にのみ値をリセットする

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()方法対象：

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

次のコードは、正しい道の上にあなたを置く必要があります：Rangeの

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