我有一个表,其中通过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'呢? 我尝试了多次,但无法正常工作:/
我将不胜感激。
答案 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" & ")"