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