麻辣家族討論版版 » Excel程式區 » 如何將COUNTIF公式轉VBA語法

返回列表下一主題上一主題發帖

[發問] 如何將COUNTIF公式轉VBA語法

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 198
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2021-11-22 12:01 | 顯示全部帖子

[發問] 如何將COUNTIF公式轉VBA語法

Dear all,
我試著想把下列公式改成VBA語法，但結果是失敗的，是否可以幫我看一下語法哪裡有誤？
F2=COUNTIF(繳庫量!G$2:G$20000,A2)

Sub Countif()

For i = 2 To 65536 Step 1
For j = 2 To [g65536].End(3).Row

Cells("G", i).Value = WorksheetFunction.CountIf(Sheets("繳庫量").Cells("G", j), Cells("A", i))

Next j
Next i

End Sub

樓主熱帖

收藏

Just do it.

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 198
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

2^#

發表於 2021-11-22 14:57 | 顯示全部帖子

回復 2# samwang
Dear samwang,
午安！感謝您的回覆。
抱歉問題、檔案未提供說明清楚。我的結果畫面如下圖，但我現在是用Excel公式，想把COUNTIF公式轉VBA語法

TEST.rar (8.6 KB)

Just do it.

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 198
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

3^#

發表於 2021-11-22 17:06 | 顯示全部帖子

回復 4# samwang
Dear samwang,
測試OK，感謝您的幫忙！大感恩！

Just do it.

高中生 Rank: 3 Rank: 3

帖子: 455
主題: 111
精華: 0
積分: 563
點名: 198
作業系統: Windows 10
軟體版本: Office 2019
閱讀權限: 50
性別: 男
註冊時間: 2013-11-7
最後登錄: 2026-11-1

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章論壇贊助勳章

4^#

發表於 2021-11-23 20:12 | 顯示全部帖子

回復 7# ML089
Dear ML089,
晚上好！感謝您的熱心指導與分享！
試用過後可用。太棒囉！大感謝！
^^

Just do it.

靜思自在 : 多做多得。少做多失。

返回列表下一主題上一主題