- Excel VBA 質問スレ Part41©2ch.net
957 ：デフォルトの名無しさん[sage]：2016/06/25(土) 11:05:53.81 ID:zMiNU6un - 質問です。
拾い物なんですが下記のコードをセルA1だけでなく、シート内全セルに変更したいのですがうまく出来ません。助けて下さい。
Sub 文字の修正()
If Range("A1").Find(What:="株式会社") Is Nothing Then
Moji = Range("A1").Value
Range("A1") = "株式会社" & Moji & "御中"
End If
End Sub
|