| |
Sub macro1()
Dim MaxDay As Long
Dim MinDay As Long
Dim LastRow As Long
LastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
MaxDay = WorksheetFunction.Max(Range("C:C"))
MinDay = WorksheetFunction.Min(Range("C:C"))
With ActiveSheet.Range("$A$1:$AW" & LastRow)
'※１
.AutoFilter Field:=3, Criteria1:=MaxDay
.AutoFilter Field:=43, Criteria1:="ABC"
'※２
.AutoFilter Field:=3
.AutoFilter Field:=43, Criteria1:="AEWQ"
End With
End Sub
AからAWまでのデータがあります
C列に、年月日（YYYYMMDD形式）の文字があります
AQ列に、商品名があります
オートフィルタを2度実行して、シートに2度実行した結果を
表示したく思います
上記のコードで、オートフィルタを2度実施して、
シートに結果を表示しようとしているのですが
※１、※２共にデータがあるにも関わらず※２だけ表示されます
※１だけのコードなら、※１のデータが表示され、
※２だけのコードなら、※2のデータが表示されます
※１と※２のデータをシートに一度で表示するには
どのようにしたらよいでしょうか？
ご教示ください
|
|
りょうた
- 19/2/16(土) 21:51 -
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
≪
