VBA（Microsoft Excel）は文字列で配列を置き換えます

Question

これは完全に間違っていることは知っていますが、現時点ではどうしたらよいか分かりません。

Microsoft Excelでは、 "OldValues"文字列のすべての値を固定文字列 "NewValue"で置き換えたいとします。そんなことがあるものか？

LBoundとUboundを使用するのは間違っています。

Sub Replace() 
Dim sht As Worksheet 
Dim OldValues As Variant 
Dim NewValue As String 
Dim x As Long 

OldValue = Array("old1","old2","old3") 
NewValue = "allnew!" 

    For x = LBound(OldValue) To UBound(NewValue) 

     For Each sht In ActiveWorkbook.Worksheets 
     sht.Cells.Replace What:=OldValue(x), Replacement:=NewValue(x), _ 
      LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _ 
      SearchFormat:=False, ReplaceFormat:=False 
     Next sht 

    Next x 

End Sub 

Answer 1

あなたのコードは、わずかな変更で作業する必要があります。 NewValueが配列ではないので、UBound(NewValue)はあなたにエラーが発生します。ループの代わりにUBound(OldValues)に移動し、ReplaceにNewValueの後に(x)を削除する必要があります。

Sub Replace() 
Dim sht As Worksheet 
Dim OldValues As Variant 
Dim NewValue As String 
Dim x As Long 

OldValues = Array("old1","old2","old3") 
NewValue = "allnew!" 

    For x = LBound(OldValues) To UBound(OldValues) 

     For Each sht In ActiveWorkbook.Worksheets 
     sht.Cells.Replace What:=OldValues(x), Replacement:=NewValue, _ 
      LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _ 
      SearchFormat:=False, ReplaceFormat:=False 
     Next sht 

    Next x 

End Sub