- 97 名前：デフォルトの名無しさん [2007/12/20(木) 16:19:13 ]
- Sub nnn()
Dim a As Variant
Dim i As Byte
Dim sentence As String
Dim sentence2 As String
''''''''''''''''''''''
Range("A1").Formula = "I am Japanese."
a = Array("I", "am", "Japanese", "living", "in", "USA", ".")
For i = 0 To 6
sentence = Range("A1").Value
sentence2 = Replace(sentence, a(i), "", 1)
Next i
MsgBox sentence2
End Sub
このプログラムで、sentenceをa配列全て使って、
置換したいのですが、
array中の最後の文字しか変換されません。
どうすればよいでしょうか...
