- 帖子
- 44
- 主題
- 4
- 精華
- 0
- 積分
- 84
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- sp2
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2016-10-12
- 最後登錄
- 2021-11-10
|
3#
發表於 2017-5-23 10:27
| 只看該作者
計算結果與你提供的不同, 但應該是你要的- Option Explicit
- Sub Cal_N()
- Dim I%, J%, DD$, S1 As Worksheet, S2 As Worksheet
-
- Set S1 = ActiveWorkbook.Sheets("工作表1")
- Set S2 = ActiveWorkbook.Sheets("工作表2")
-
- For I = 3 To 7
- For J = 6 To 16
- DD = S2.Cells(I, 5)
- If DD = "NA" Then
- S2.Cells(I, J) = Application.WorksheetFunction.CountIfs(S1.Columns(5), _
- S2.Cells(I, 3), S1.Columns(7), S2.Cells(2, J))
- Else
- S2.Cells(I, J) = Application.WorksheetFunction.CountIfs(S1.Columns(5), _
- S2.Cells(I, 3), S1.Columns(7), S2.Cells(2, J), S1.Columns(6), ">" & S2.Cells(I, 5))
- End If
- Next J
- Next I
- End Sub
|
|
