|
ichinoseさん こんにちは。
書いてきちゃったので乗っけときます
結局は、COUNTIFの関数を入れているだけですけど...。
Sub いちご()
Dim LsAR As Long, Cer As Long
LsAR = Range("A65536").End(xlUp).Row
Range("A1:A" & LsAR).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
CAE = Range("A1").End(xlDown).Row
ActiveSheet.Range("A1:A" & CAE).SpecialCells(xlCellTypeVisible).Copy
Sheets("Sheet4").Range("A1").PasteSpecial (xlPasteValues)
ActiveSheet.ShowAllData
S4Er = Sheets("Sheet4").Range("A65536").End(xlUp).Row
Sheets("Sheet4").Range("B1:B" & S4Er).Formula = "=COUNTIF(Sheet3!A1:A" & CAE & ",A1)"
End Sub
|
|