因需求希望能篩選數字的筆數,並把筆數統計於工作表分頁。
(如下工作表2,B欄位)
先在此感謝回答者。
Private Sub CommandButton1_Click()
'工作表1的 B 欄位 copy 到工作表2 A 欄位
Worksheets("工作表1").Range("B1:B65536").Copy
Worksheets("工作表2").Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
'工作表2 A 欄位去除重複
Worksheets("工作表2").Range("A1:A65536").RemoveDuplicates Columns:=1, Header:=xlNo
Dim U As Integer
Set RngHead = Worksheets("工作表2").Range("A1")
DataCunt = Worksheets("工作表2").Range("A65536").End(xlUp).Row
'用 CountIf 計算同一字串出現次數
Dim SearchStr As String
For U = RngHead.Row To DataCunt
SearchStr = Trim(Worksheets("工作表2").Cells(U, 1))
If (SearchStr <> "") Then
Worksheets("工作表2").Cells(U, 2) = WorksheetFunction.CountIf(Worksheets("工作表1").Range("B1:B65536"), SearchStr)
End If
Next
End Sub