Copy values that appear at least 3 times in a column

[windblife]

Hi, I'm a newbie in Excel. I appreciate any help to create a VBA that Copy values that appear at least 3 times in column A to column B.
Example:
Column A
1
2
3
4
5
6
7
1
2
8
9
1
3
5
10
11
3
12
13
1
15

Column B:
1
3
Green numbers only appear twice so they're not copied to column B.

Thanks in advance

[PCI]

Try

Please Login or Register  to view this content.

[windblife]

thanks PCI. I tried your code but it says type mismatch. DO I miss anything?
Y2aFUnF.jpg

[PCI]

Is it happening with the file I sent you?
If yes try again the file attached: No big changes but ...
Else send an update of your file

[windblife]

It worked with your file.
If happens on my own sheets. It doesn't work on sheet 2 but ok on sheet 1. I don't know whether macros only work on certain sheets.
May I ask, if data in column A is already sorted, can you make faster version for both cases: duplicated (appear at least twice) case and appear at least 3 times case? I think it would be a lot faster because duplicated values are next to each others.

[PCI]

"It doesn't work on sheet 2 but ok on sheet 1" YES it works with the active sheet, do you want it to works for all sheets?
Do you want column B for data appearing twice and column C for data appearing times ?

[PCI]

Here an example to treat data appearing twice and 3 times for tha avtive sheet.
It should be faster
Waiting for your informaton concerning sheets to treat: All of them or a limited sheets list (give the name)

Please Login or Register  to view this content.

[windblife]

I figured out why it only works on certain sheet . Because I put code in VBA on sheet 1 but run macro on sheet 2
About sorting, I didn't ask to put sorting function on the sheet. I thought that, if data is sorted, there would be another algorithm to select duplicate values much faster. It's like finding number in a sorted list is much faster using binary search, than normal search algorithm in a random list.
Thanks a lot for your help PCI. My last request: Can you separate your code to 2 sheets, sheet 1 to copy values appear twice, sheet 2 to copy values appear 3 times? Because I don't need to filter both at the same time.

[PCI]

OK
See attached a file with 2 macros:
Sub Treat2() is preparing the list when there is at least 2 same values in the active sheet
Sub Treat3() is preparing the list when there is at least 3 same values in the active sheet

[windblife]

thanks again bro. Problem totally solved.
512px-Thumbs_up_font_awesome.svg.png