求助，如何实现行列同时循环，统计用

如图，C74填写（D2:D51）中 ≥ D54数据的个数
C75填写（L2:L51） 中 ≥ D54数据的个数
C76填写（T2:T51） 中 ≥ D54数据的个数
C77填写（AB2:AB51） 中 ≥ D54数据的个数
C78填写（AJ2:AJ51） 中 ≥ D54数据的个数
C79填写（AR2:AR51） 中 ≥ D54数据的个数
然后：C85填写（E2:E51）中 ≥ E54数据的个数
C86填写（M2:M51）中 ≥ E54数据的个数
C87填写（O2:O51）中 ≥ E54数据的个数
C88填写（AC2:AC51）中 ≥ E54数据的个数
C89填写（AK2:AK51）中 ≥ E54数据的个数
C90填写（AS2:AS51）中 ≥ E54数据的个数
需要解决的难点：
填下格属于行循环，引用判断的两个数据源都是列号循环
我目前的代码：
Dim i As Double
Dim k As Double
For k = 1 To 5
i = 63 + 11 * k
'所有C列
ws3.Range("C" & i).Value = Application.WorksheetFunction.CountIf([D2:C51], ">= " & Cells(54, k + 3).Value)
ws3.Range("C" & i + 1).Value = Application.WorksheetFunction.CountIf([L2:L51], ">= " & Cells(54, k + 3).Value)
ws3.Range("C" & i + 2).Value = Application.WorksheetFunction.CountIf([T2:T51], ">= " & Cells(54, k + 3).Value)
ws3.Range("C" & i + 3).Value = Application.WorksheetFunction.CountIf([AB2:AB51], ">= " & Cells(54, k + 3).Value)
ws3.Range("C" & i + 4).Value = Application.WorksheetFunction.CountIf([AJ2:AJ51], ">= " & Cells(54, k + 3).Value)
ws3.Range("C" & i + 5).Value = Application.WorksheetFunction.CountIf([AR2:AR51], ">= " & Cells(54, k + 3).Value)
next k
可以运行，但是显示统计出来的数量不对，不知道哪里有问题，请大神帮忙看看