Excel VBA 篩選數字問題

excel vba

longtimetalk 2020-12-05 22:47:43 ‧ 2316 瀏覽

分享至

因需求希望能篩選數字的筆數，並把筆數統計於工作表分頁。
(如下工作表2，B欄位)

先在此感謝回答者。

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

3 個回答

rogeryao

iT邦超人 7 級 ‧ 2020-12-06 12:31:12

最佳解答

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