iT邦幫忙

0

Excel VBA 篩選數字問題

  • 分享至 

  • xImage

因需求希望能篩選數字的筆數,並把筆數統計於工作表分頁。
(如下工作表2,B欄位)
https://ithelp.ithome.com.tw/upload/images/20201205/20131103TtpJNnV79r.jpg

先在此感謝回答者。

圖片
  直播研討會
圖片
{{ item.channelVendor }} {{ item.webinarstarted }} |
{{ formatDate(item.duration) }}
直播中
0
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

非常有幫助,感謝你的回答。

0
海綿寶寶
iT邦大神 1 級 ‧ 2020-12-06 08:28:27

如果沒有特別原因非得使用 VBA
就使用「樞紐分析」會比較簡單

0
richardsuma
iT邦大師 1 級 ‧ 2020-12-06 21:54:46

SUMPRODUCT

我要發表回答

立即登入回答