Sub 全シート置換() Dim 置換前 As String Dim 置換後 As String Dim MySH As Worksheet 置換前 = "3-1 " 置換後 = "2-1"

Visual Basic | Excel30閲覧xmlns="http://www.w3.org/2000/svg">100

ベストアンサー

0

コメントありがとうございました。 Sub 一部置換() Dim 置換前 As String Dim 置換後 As String Dim MySH As Worksheet Application.DisplayAlerts = False MySH = ActiveSheet For i = 1 To 4 置換前 = "3-" & i 置換後 = "2-" & i MySH.Range("E31:G50").Replace What:=置換前, Replacement:=置換後 Next Application.DisplayAlerts = True End Sub これで実行したら、オブジェクト変数またはwithブロック変数が設定されていません。と表示されました。