可调整范围的工作表功能计数

时间:2019-03-05 09:09:08

标签: excel vba

我有一个表,其中通过Worksheet.Function.Countif对记录进行计数。

这很好,因为它使用.Rows.Count来对行进行计数,所以我很确定如果我的表更改了大小。

看起来像这样(代码的子集):

endrow = .Cells(.Rows.Count, 20).End(xlUp).Row
  ws1.Cells(6, 34).Formula = "=COUNTIF(" & .Range("U6:U" & endrow).Address & ",U6)"  

我希望以与上述相同的方式编写worksheet.function公式,但要使用“ Countifs”。在excel中,我会这样输入: = COUNTIFS($ U $ 6:$ U $ 144; U6; $ T $ 6:$ T $ 144 $;“ <>”&T6)

如何在vba中使用第一个演示代码中的'endrow'来编写它,即最后一行没有'144'但带有'&endrow'呢? 我尝试了多次,但无法正常工作:/

我将不胜感激。

2 个答案:

答案 0 :(得分:0)

此公式获取A列的最后一行:

=IFERROR(LOOKUP(2,1/(NOT(ISBLANK(A:A))),ROW(A:A)),0)

答案 1 :(得分:0)

尝试一下:

ws1.Cells(6, 34).Formula = "=COUNTIFS($U$6:$U$" & endrow & ",U6,$T$6:$T$" & endrow & "," & """" & "<>" & """" & "&T6" & ")"