|
こんにちは。
質問はもっと具体的に書いてくださいね、
答えようがありません。
ですので、下のコードはサンプルみたいなものです。
泥臭いやりかたで書いてます。
Sub test()
Dim tStrA As String
Dim tStrB As String
Dim i As Integer
Dim n As Integer
tStrA = "特定の文字列"
tStrB = "もういっこの特定の文字列"
n = 1
If Range("A1").Value = tStrA Then
For i = 1 To 500
If Range("A" & i).Value = tStrB Then
ActiveSheet.Rows(i).Copy (Worksheets(2).Rows(n))
n = n + 1
End If
Next i
End If
End Sub
▼VBA15日目の初心者 さん:
>以下のようなことをACCESSを使用せずEXCELで行うことが急に必要となって
>しまい、慌てて書籍やインターネットで色々調べましたが未だ自力で解決
>できません。
>もし、簡単に解決できる方で、教えてもいいという方がいらっしゃいまし
>たら助けていただけないでしょうか。
>
>1行目(タイトル行)に「特定の文字」を含む場合で、
>2行目以降に「別の特定の文字」を含む場合に、
>「別の特定の文字」を含む行を全て削除し、削除した行を別シートに移動する。
|
|