如何将此= SUM（COUNTIFS（F4：AN4，{＆＃34; 0＆＃34;，＆＃34; 1＆＃34;}））转换为VBA？

Question

我需要帮助将常用的Excel函数转换为VBA代码。

有关我已经开始使用的代码，请参阅随附的屏幕截图。

我使用屏幕截图中显示的计算来构建记分卡/评分工作表。我需要调整每个行中的行，但不要调整列。

一旦我搞清楚了，我会循环这些以重复每个新行的添加。

我的代码的图片，到目前为止

Answer 1

当文字字符串需要包含双引号字符时，您需要在字符串中为每个双引号连续使用两个双引号。

所以你的字符串

Range("AP4").Formula = "SUM(COUNTIFS(J3:AR3,{"0","1"}))"

需要看起来像这样：

Range("AP4").Formula = "SUM(COUNTIFS(J3:AR3,{"“0"”,""1""}))"

您也可以这样做而不将公式放入单元格的内容中，如下所示：

Range("AP4") = WorksheetFunction.SUM(WorksheetFunction.COUNTIFS(J3:AR3,{""0"",""1""}))