[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『置換方法』(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 この2行を止めて実行した所動かす事は出来ました ありがとうございました (km) 2014/09/28(日) 08:44
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.