Question

我正在尝试将SUMIF公式合并到我的宏中。 excel中的代码如下所示：= SUMIF（'WSO兴趣'H2：H46，'20140618贷款'D10，'WSO兴趣'S2：S46）

我将dim设置为i和lastrow为integer 我已经设置了这个，这样我就可以找到列的最后一行并继续循环直到最后一行。我也用过

Sheets("20140618 Loans").Select
Range("A10").Select
Selection.End(xlDown).Select
lastrow = ActiveCell.Row

找到填充文本的最后一行。

这是什么我到目前为止：

Range("W10").select
For i = 10 to lastrow

SUMIF公式将在这里

Next i

所以基本上我要做的是使用我的宏中的SUMIF公式从W10开始并继续计算SUMIF公式，直到它到达最后一行。感谢您的帮助，随时提出任何问题。

Answer 1

您可以使用Formula对象的Range属性来设置公式。

Range("W" & i).Formula = "=SUMIF('WSO Interest'!H2:H" & lastrow & _
    ", '20140618 Loans'!D10, 'WSO Interest'!S2:S" & lastrow & ")"

&运算符用于将字符串连接在一起。

Answer 2

Dim r As Range
Set r = Range("W10", Range("W10").End(xlDown)) --Change it per requirement .....
For Each cell In r
 Debug.Print cell.Address --Your Code goes here I guess
Next

使用SUMIF直到vba中的最后一行

2 个答案: