Excel VBA 質問スレ Part41©5ch.io
レス数が950を超えています。1000を超えると書き込みができなくなります。
0959デフォルトの名無しさん
2016/06/25(土) 11:16:30.79ID:LSp3Y+eCSub 文字の修正()
Dim Unko As Range
For Each Unko In ActiveSheet.UsedRange
If Unko <> "" And InStr(Unko, "株式会社") = 0 Then
Unko = "株式会社" & Unko & "御中"
End If
Next Unko
End Sub
レス数が950を超えています。1000を超えると書き込みができなくなります。