|
▼トキノハジメ さん:
>▼kanabun さん:
>A列、B列のフィルタ条件(各Criteria1)に合うデータ行が
>2つともあるのですが、フィルターに掛けると抽出しないのです。
>表ではA3のしたは行番号が40になり3列だけが見えていて後は何も見えていません。
えっとですね、もう少し具体的な表を例示してもらえませんかね。
たとえば、
【68966】に挙げた、
A B C D
1
2 (空白行)
3 名前 番号 算数 国語
4 高橋 11 75 80
5 吉田 12 55 75
6 渡邉 15 85 100
7 大島 2 60 80
のようなものでいいです。
上のような表に対して、
Dim ShtName1 As String: ShtName1 = "Sheet2" '←ここに参照先シート名を入れる
Dim ws2 As Worksheet
Set ws2 = Worksheets(ShtName1)
With ActiveSheet.Range("A3").Currentregion
.Worksheet.AutoFilterMode = False
.AutoFilter Field:=1, Criteria1:="吉田" 'ws2.Range("E2").Value
.AutoFilter Field:=2, Criteria1:=12 'ws2.Range("H2").Value
MsgBox "OK?", vbOkCancel
.Copy ActiveSheet.Range("A41")
.AutoFilter
End With
を実行すると、
A列が「吉田」で、かつ、B列が「12」の行は1行ありますから、
3行目(見出し行)と 5行目だけがフィルタされて、
> MsgBox "OK?", vbOkCancel
で実行が一時中断すると思います。
そちらの表は どのようなもので、
> .AutoFilter Field:=1, Criteria1:=ws2.Range("E2").Value
> .AutoFilter Field:=2, Criteria1:=ws2.Range("H2").Value
の
ws2.Range("E2").Value
ws2.Range("H2").Value
とが、どのような値なのかを知りたいのです。
|
|