Excel VBA 質問スレ Part41©5ch.io
レス数が950を超えています。1000を超えると書き込みができなくなります。
0957デフォルトの名無しさん
2016/06/25(土) 11:05:53.81ID:zMiNU6un拾い物なんですが下記のコードをセルA1だけでなく、シート内全セルに変更したいのですがうまく出来ません。助けて下さい。
Sub 文字の修正()
If Range("A1").Find(What:="株式会社") Is Nothing Then
Moji = Range("A1").Value
Range("A1") = "株式会社" & Moji & "御中"
End If
End Sub
レス数が950を超えています。1000を超えると書き込みができなくなります。