ゴリラストロングの雑記帳

月収10万円の広告収入を目指す自称専業ライターのブログです。




【VBA】SUBSTITUTE関数の使い方の例。検索した文字列を置き換える。




どうも、ゴリラストロングです。

 

今回はVBAで、SUBSTITUTE関数の使い方の例として、検索した文字列を置き換えるマクロを作成してみました。

 

<元データ>

f:id:gorilla-strong:20200325162537p:plain

 

<マクロ実行後>

f:id:gorilla-strong:20200325162630p:plain

 

 

 スポンサーリンク

 

 

ソースコード

Sub 関数()

Dim ws As Object
Set ws = ThisWorkbook.Worksheets(1)

Dim lastrow As Long
lastrow = ws.Cells(Rows.Count, 1).End(xlUp).Row


For i = 3 To lastrow

ws.Range("B" & i) = WorksheetFunction.Substitute(WorksheetFunction.Substitute(ws.Range("A" & i), "Excel", "Word"), "-" & i - 2, "")

Next


End Sub

 

 

以上、ゴリラストロングでした。

 

 スポンサーリンク