在 VBA 中使用负循环数

Question

我有一个 for 循环，在 Excel VBA 中使用 i 作为计数器。我有一个语句顽固地给我错误：

ActiveCell.FormulaR1C1 = "=VLookup(RC[-3],R3C7:R22C15,3)" & " & " & "R[-i]C" & " _ 

& " & "Vlookup(RC[-3],R3C7:R22C15,4)"

使用-i 显然会导致错误。我尝试添加 negi=-i，然后将 R[-i]C 更改为 R[negi]C，但这并没有解决问题。我在之前的代码中添加了一个 Dim negi as Integer 语句。

编辑：这里有更多代码。我正在使用两个循环。 rownumber 是外循环的计数器，i 是内循环的计数器。 i 的范围从 1 到 20，rownumber 的范围是直到到达第 3 列中的空白行为止。

Range("A25").Select
Dim Rownumber As Integer
Dim i As Integer
Dim negi As Integer
Rownumber = 1

' 这会启动外循环 Do While ActiveCell.Offset(0, 3) "" ' 添加二十行 ActiveCell.Offset(1, 0).Select

Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(19, 5)).Select
Selection.Insert Shift:=xlDown

ActiveCell.Offset(-1, 0).Select

对于 i = 1 到 20

ActiveCell.Offset(1, 0).Select
ActiveCell.FormulaR1C1 = i
ActiveCell.Offset(0, 1).Select
 ActiveCell.Value = Rownumber
    ActiveCell.Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = "=Vlookup(RC[-2],R3C7:R22C15,2)"
    ActiveCell.Offset(0, 1).Select
    negi = -i
    ActiveCell.FormulaR1C1 = "=VLookup(RC[-3],R3C7:R22C15,3)" & " & " & _
     "R[negi]C" & " & "& "Vlookup(RC[-3],R3C7:R22C15,4)"

    ....
    rownumber = rownumber + 1
    next i

我怎样才能在避免错误的同时做到这一点？

Answer 1

公式构建中有几个错误的字符串连接。

i 必须在引用的字符串之外并连接在其中，& " & " & 可能没有做你想做的事。

ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-3],R3C7:R22C15,3)&" & _
                                   """ & ""&R[-" & i & "]C&"" & ""&" & _
                                   "VLOOKUP(RC[-3],R3C7:R22C15,4)"

请记住，您必须在带引号的字符串中使用双引号。

Answer 2

您可以执行从较大值到较低值的循环。这将从使用的最后一个单元格循环到第一个单元格。

lRow = ws.UsedRange.Rows.count
Do While lRow > 0
    lCol = ws.UsedRange.Columns.count
    Do While lCol > 0
        If InStr(ws.Cells(lRow, lCol), job) Then

        End If
        lCol = lCol - 1
    Loop

    lRow = lRow - 1
    ws.Range("A" & lRow).Activate
Loop