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 質問
【38503】Re:特定の文字が入ったデータ削除 ハト 06/6/5(月) 13:56 回答
【38507】Re:特定の文字が入ったデータ削除 an 06/6/5(月) 14:22 お礼
【38504】Re:特定の文字が入ったデータ削除 ハチ 06/6/5(月) 13:59 発言
【38508】Re:特定の文字が入ったデータ削除 an 06/6/5(月) 14:25 お礼
【38509】Re:特定の文字が入ったデータ削除 ハチ 06/6/5(月) 14:34 発言
【38540】Re:特定の文字が入ったデータ削除 an 06/6/6(火) 10:47 質問
【38552】Re:特定の文字が入ったデータ削除 ハチ 06/6/6(火) 12:27 回答
【38557】Re:特定の文字が入ったデータ削除 an 06/6/6(火) 13:21 質問
【38560】Re:特定の文字が入ったデータ削除 ハチ 06/6/6(火) 13:49 発言
【38565】Re:特定の文字が入ったデータ削除 an 06/6/6(火) 14:11 お礼
【38582】Re:特定の文字が入ったデータ削除 an 06/6/6(火) 17:14 質問
【38583】Re:特定の文字が入ったデータ削除 ハチ 06/6/6(火) 18:03 回答
【38668】Re:特定の文字が入ったデータ削除 an 06/6/8(木) 10:24 質問
【38669】Re:特定の文字が入ったデータ削除 ハチ 06/6/8(木) 10:44 発言
【38670】Re:特定の文字が入ったデータ削除 Jaka 06/6/8(木) 10:55 発言
【38672】Re:特定の文字が入ったデータ削除 ハチ 06/6/8(木) 11:42 発言
【38676】Re:特定の文字が入ったデータ削除 Jaka 06/6/8(木) 12:40 発言
【38677】Re:特定の文字が入ったデータ削除 ハチ 06/6/8(木) 12:47 発言
【38692】Re:特定の文字が入ったデータ削除 an 06/6/8(木) 16:26 質問

43280 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free