範囲内のデータを読み取り、それを変更するかどうかを尋ねてから、同じ方法で他のセルを変更するマクロがあります。1 つのシートでのみ機能し、他のすべてのシートを同じ範囲で検索するように変更するにはどうすればよいですか?
このように書いていますが、他のシートの他のデータが変更されない理由がわかりません
Sub standardize()
For Each ws In ActiveWorkbook.Worksheets
For Each Title In Range("O1:O2000").Cells
Dim des As String
des = Title.Value
If Left(des, 1) <> "*" And Title.Value <> 0 Then
Dim MyDataObj As New DataObject
MyDataObj.SetText des
MyDataObj.PutInClipboard
newtitle = Application.InputBox(prompt:=des, Title:=" Input The description as you like!", Type:=2)
If newtitle <> False Then
For Each cate In ActiveWorkbook.Worksheets.Range("O1:O2000").Cells
If titl.Value = des Then
titl.Value = "*" & newtitle
End If
Next titl
Next cate
End If
End If
Next Title
Next ws
End Sub