読者です 読者をやめる 読者になる 読者になる

VBA_置換

VBA挑戦3。例によって置換する対象のファイル数が多いので。

 

Sub replace()
    i = 2
    Workbooks.Open "絶対パス\hoge_" & i & ".xls"
    
    Workbooks("hoge_" & i & ".xls").Sheets("test001").Range("C1:C8") _
    .replace What:="検索文字", Replacement:="置換文字", Lookat:=xlPart
    'xlPart は部分一致 xlWholeは完全一致
   
    ActiveWorkbook.Save
   
    Workbooks("hoge_" & i & ".xls").Close
End Sub

  文頭に ' (アポストロフィ) を追加するとコメントアウト。 

 

以上。

 

↓ 『セルの切り取り貼り付け』も参照することを推奨。

koshinran.hateblo.jp