Question

我刚刚开始学习VBA，这是我的作业问题。它要求我使用名为17067513_Excel的工作簿中的一系列数据。我必须使用COUNTIF来找出有多少个单元格包含40个以上的标记。您能看一下我的代码并为我提供帮助

Sub Test()
    Dim iVal As Integer
    iVal = Application.WorksheetFunction.CountIf(Workbooks("17067513_Excel.xlsx").Worksheets("17067513").Range("N2:N296"), ">40%")
Sheets("VBA").[B1] = iVal
End Sub

Answer 1

如果您想编写一个代码来计算COUNTIF和两个数据（计算所需的范围）以及同一工作簿中包含的代码，可以尝试以下操作：

Option Explicit

Sub Countif()

    Dim Result As Long
    Dim rng As Range

    Set rng = ThisWorkbook.Worksheets("1706751").Range("N2:N296")

    Result = Application.WorksheetFunction.Countif(rng, ">40%")

End Sub

注意：将您的工作簿另存为启用Excel宏的工作簿（* .xlsm）

从另一个工作簿使用VBA引用时出现问题，因为我想做数字运算

1 个答案: