[[20140928045603]]　『置換方法』（km）　ページの最後に飛ぶ

『置換方法』（km）

 すみません　教えてください
下記　コードで置換をしていますが　一回一回打ち直しになります　こちらが置換したい
件数が終わったら終了する　にしたいのですが
Sub 削除()
    Dim i As Long
    Dim sk As String
    sk = InputBox("名前入力")
    For i = 2 To 1400
        If Cells(i, 16) = sk Then
            Cells(i, 16) = Replace(Cells(i, 16), sk, "")
        End If
    Next i
End Sub

宜しくお願いします

＜使用 Excel：Excel2012(Mac)、使用 OS：MacOS9 ＞

 Macと同じか試していませんが・・・

 Replace関数ではなく、Range.Replaceメソッド（エクセル標準の置換機能）ではいかがですか？
 inputboxが空白か、キャンセルでループをぬけます。
    Sub 削除()
        Dim sk As String
        Do
            sk = InputBox("名前入力")
            If sk = "" Then Exit Do
            Range("P2:P2000").Replace _
                What:=sk, _
                Replacement:="", _
                LookAt:=xlPart, _
                SearchOrder:=xlByRows, _
                MatchCase:=False, _
                SearchFormat:=False, _
                ReplaceFormat:=False
        Loop
    End Sub

 Q列が元データ、P列が結果です。
 実行　→　ろん　いか　キャンセル
 	[P]	[Q]
[2]	め	めろん
[3]	す	すいか
[4]	とまと	とまと
[5]	いちご	いちご
[6]	め	めろん
[7]	とまと	とまと
[8]	いちご	いちご
[9]	め	めろん
[10]	す	すいか
[11]	とまと	とまと

（稲葉） 2014/09/28(日) 07:13

稲葉様ありがとうございます

実行してみましたがSearchFormat:=Falseで
コンパイルエラー　名前付因数が見つかりませんと出ます
（km） 2014/09/28(日) 07:46

稲葉様

SearchFormat:=False, _

                ReplaceFormat:=False
この２行を止めて実行した所動かす事は出来ました
ありがとうございました
（km） 2014/09/28(日) 08:44

コメント返信：

[ 一覧(最新更新順) ]

[[20140928045603]] 『置換方法』（km） ページの最後に飛ぶ

[[20140928045603]]　『置換方法』（km）　ページの最後に飛ぶ