16/06/25 11:16:30.79 LSp3Y+eC.net
>>957
Sub 文字の修正()
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
16/06/25 11:16:30.79 LSp3Y+eC.net
>>957
Sub 文字の修正()
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