2

範囲内のデータを読み取り、それを変更するかどうかを尋ねてから、同じ方法で他のセルを変更するマクロがあります。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
4

1 に答える 1