Sub 重複なし()
Sheets("未入荷").Select
Range("R3").Select
ActiveSheet.Range("$A$3:$V$5511").AutoFilter Field:=18, Criteria1:="<>"
Range("Q3:R3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("Sheet1").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A3").Select
Application.CutCopyMode = False
ActiveSheet.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlYes
ActiveSheet.Range("B:B").RemoveDuplicates Columns:=1, Header:=xlYes
Sheets("未入荷").Select
If Worksheets("未入荷").FilterMode Then
Worksheets("未入荷").ShowAllData
MsgBox ("フィルタを解除しました。")
End If
' ActiveSheet.Range("A3").AutoFilter '// 設定 or 解除
End Sub
コメントをお書きください