Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

43280 / 76732

←次へ　｜　前へ→


	【38502】特定の文字が入ったデータ削除

an - 06/6/5(月) 13:40 -


	引用なし

	パスワード

いつもこの掲示板に助けられている者です。
今回も思ったように動いてくれず、大変困っています。

14列目にaaaとbbb　　　　というデータがあったら削除する
コードを書いています。
但し、bbbは1文字目に空白がなぜか入ってしまい
削除できないデータがあることが判明しました。
TRIM関数を書きましたが、取り除けないので
下のようなコードに変えましたが、やはり削除
できません。
お分かりになる方がいらっしゃいましたら、アドバイス
頂けると助かります。

宜しくお願いいたします。

　　　　検索データ1 = "aaa"
　　　　　　検索データ2 = "bbb"

　　　　　　　　　　Sheets("test").Select
　　　　　　　　　　ActiveSheet.Range("A" & Rows.Count).End(xlUp).Select
　　　　　　　　　　Lastrowno = ActiveCell.Row
　　　　　　For i = 6 To Lastrowno + 10
　　　　
　　　　　　If Cells(i, 1).Value = 検索データ1 Then
　　　　　　　　
　　　　　　　　Range("A" & i & ":N" & i).Select
　　　　　　　　Selection.Delete (xlShiftUp)
　　　　　　　　　　　　　　　　
　　　　　　End If
　　　
　　　　　　Next i
　
　
　　　　　　For i = 6 To Lastrowno + 3
　　　　
　　　　　　If Cells(i, 14).Text = "*" & 検索データ2 & "*" Then
　　　　　　　　
　　　　　　　　Range("A" & i & ":N" & i).Select
　　　　　　　　Selection.Delete (xlShiftUp)
　　　　　　　　　　　　　　　　
　　　　　　End If
　　　
　　　　　　Next i

1 hits

▼

【38502】特定の文字が入ったデータ削除 an 06/6/5(月) 13:40

≪