重置VBA循环中的范围变量会导致424错误

所以我知道我昨天问了一个非常类似的问题，实际上是关于相同的代码。前面的问题可以找到

它完成了99%，但是循环中有一个运行时错误导致它失败。我不明白的是，它只运行一次，做它需要做的一切，然后重置范围变量YTD使它停止在YTD。公式=YTD。代码如下

    Sub offset(rows1 As Long)
    Dim sh As Worksheet
    'Integers
    Dim i As Long
    Dim k As Long
    'Movers
    Dim current As Range
    Dim first As Range
    'Metrics
    Dim QTRA As Range
    Dim YTD As Range
    Dim yr1 As Range
    Dim yr3 As Range
    Dim yr7 As Range
    Dim yr5 As Range
    Dim yr10 As Range
    Dim SI As Range
    Dim QTR As Range
    Dim YTD_2 As Range
    Dim yr1_2 As Range
    Dim yr3_2 As Range
    Dim yr5_2 As Range
    Dim yr7_2 As Range
    Dim yr10_2 As Range
    Dim SI_2 As Range
    'Strings
    Dim QTRAs As String
    Dim YTDs As String
    Dim yr1s As String
    Dim yr3s As String
    Dim yr7s As String
    Dim yr5s As String
    Dim yr10s As String
    Dim SIs As String
    Dim QTRs As String
    Dim YTD_2s As String
    Dim yr1_2s As String
    Dim yr3_2s As String
    Dim yr5_2s As String
    Dim yr7_2s As String
    Dim yr10_2s As String
    Dim SI_2s As String

    'Puts in the metric names on the top row. Can be adjusted for 2nd row if need be
    Sheets("Comparative Performance1").Range("T1").Formula = "YTD"
    Sheets("Comparative Performance1").Range("U1").Formula = "yr1"
    Sheets("Comparative Performance1").Range("V1").Formula = "yr3"
    Sheets("Comparative Performance1").Range("W1").Formula = "yr5"
    Sheets("Comparative Performance1").Range("Y1").Formula = "yr7"
    Sheets("Comparative Performance1").Range("X1").Formula = "yr10"
    Sheets("Comparative Performance1").Range("Z1").Formula = "SI"
    Sheets("Comparative Performance1").Range("AA1").Formula = "QTR"
    Sheets("Comparative Performance1").Range("AB1").Formula = "YTD_2"
    Sheets("Comparative Performance1").Range("AC1").Formula = "yr1"
    Sheets("Comparative Performance1").Range("AD1").Formula = "yr3"
    Sheets("Comparative Performance1").Range("AE1").Formula = "yr5"
    Sheets("Comparative Performance1").Range("AF1").Formula = "yr7"
    Sheets("Comparative Performance1").Range("AG1").Formula = "yr10"
    Sheets("Comparative Performance1").Range("AH1").Formula = "SI"

    'Finds the length of the data
    'Dim rn As Range
    'Set sh = ThisWorkbook.Sheets("Comparative Performance1")
    'Set rn = sh.UsedRange
    'k = rn.Rows.Count + rn.Row - 1
    k = rows1

    For i = 3 To k
        'Setting vari ables for each respective data column
        Set current = Sheets("Comparative Performance1").Range("J" & i)
        Set first = Sheets("Comparative Performance1").Range("B" & i)
        Set QTRA = Sheets("Comparative Performance1").Range("S" & i)
        Set YTD = Sheets("Comparative Performance1").Range("T" & i)
        Set yr1 = Sheets("Comparative Performance1").Range("U" & i)
        Set yr3 = Sheets("Comparative Performance1").Range("V" & i)
        Set yr5 = Sheets("Comparative Performance1").Range("W" & i)
        Set yr7 = Sheets("Comparative Performance1").Range("Y" & i)
        Set yr10 = Sheets("Comparative Performance1").Range("X" & i)
        Set SI = Sheets("Comparative Performance1").Range("Z" & i)
        Set QTR = Sheets("Comparative Performance1").Range("AA" & i)
        Set YTD_2 = Sheets("Comparative Performance1").Range("AB" & i)
        Set yr1_2 = Sheets("Comparative Performance1").Range("AC" & i)
        Set yr3_2 = Sheets("Comparative Performance1").Range("AD" & i)
        Set yr5_2 = Sheets("Comparative Performance1").Range("AE" & i)
        Set yr7_2 = Sheets("Comparative Performance1").Range("AF" & i)
        Set yr10_2 = Sheets("Comparative Performance1").Range("AG" & i)
        Set SI_2 = Sheets("Comparative Performance1").Range("AH" & i)
        'Moves the benchmarks if it is missing a creation date
        If current = "" Then
            Range(first, current).Select
            Selection.Copy
            Range(first, current).offset(-1, 9).Select
            ActiveSheet.Paste
            'I have it deleting the entire row, which may remove necessary data, not sure yet
            rows(i).EntireRow.Delete
        End If
        'First we have to create strings for all of the formulas using the variable i
        YTDs = "=C" + CStr(i) + "-L" + CStr(i)
        yr1s = "=D" + CStr(i) + "-M" + CStr(i)
        yr3s = "=E" + CStr(i) + "-N" + CStr(i)
        yr5s = "=F" + CStr(i) + "-O" + CStr(i)
        yr7s = "=G" + CStr(i) + "-P" + CStr(i)
        yr10s = "=H" + CStr(i) + "-Q" + CStr(i)
        SIs = "=I" + CStr(i) + "-R" + CStr(i)
        QTRs = "=S" + CStr(i) + "/B" + CStr(i)
        YTD_2s = "=S" + CStr(i) + "/B" + CStr(i)
        yr1_2s = "=U" + CStr(i) + "/D" + CStr(i)
        yr3_2s = "=V" + CStr(i) + "/E" + CStr(i)
        yr5_2s = "=W" + CStr(i) + "/F" + CStr(i)
        yr7_2s = "=X" + CStr(i) + "/G" + CStr(i)
        yr10_2s = "=Y" + CStr(i) + "/H" + CStr(i)
        SI_2s = "=Z" + CStr(i) + "/I" + CStr(i)
        'This should assign all of the metrics using the correct variables
        YTD.Formula = YTDs ********** THIS IS WHERE IT FAILS ************
        yr1.Formula = yr1s
        yr3.Formula = yr3s
        yr5.Formula = yr5s
        yr7.Formula = yr7s
        yr10.Formula = yr10s
        SI.Formula = SIs
        QTR.Formula = QTRs
        YTD_2.Formula = YTD_2s
        yr1_2.Formula = yr1_2s
        yr3_2.Formula = yr3_2s
        yr5_2.Formula = yr5_2s
        yr7_2.Formula = yr7_2s
        yr10_2.Formula = yr10_2s
        SI_2.Formula = SI_2s
    Next i
End Sub

---

我认为您的问题可能在您的

If

语句中，该行显示

行（I）.entirerow.delete

。您实际上是在删除

行（i）

以及分配给YTD的范围，该范围等于

范围（“T”&i）

。你要么需要

在为变量赋值之前删除该行

删除行后添加以下内容：

i=i-1

'这将重新执行您删除的行

下一个i

”这将带您回到外观的顶部

执行一些错误处理，在遇到错误后返回顶部

---

如果删除FOR语句中的行，则会遇到问题。FOR语句在每次传递时都会递增，最终导致行差异

以下代码可能对您有用

Sub Offset(Optional rows1 As Long)
    Dim sh As Worksheet: Set sh = Sheets("Comparative Performance1")

    Dim HeaderRow As Long: HeaderRow = 1
    Dim LastRow As Long: LastRow = sh.Cells.Find("*", _
        SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
    If rows1 > HeaderRow Then LastRow = rows1

    Dim i As Long, k As Long, Counter As Long: Counter = 0

    With sh
        'Puts in the metric names on the top row. Can be adjusted for 2nd row if need be
        Dim Headers() As String: Headers = _
            Split("YTD,yr1,yr3,yr5,yr7,yr10,SI,QTR,YTD_2,yr1,yr3,yr5,yr7,yr10,SI", ",")
        For i = 0 To UBound(Headers)
            .Cells(HeaderRow, 20 + i) = Headers(i) 'Starts at Col T
        Next i

        For i = LastRow To HeaderRow + 2 Step -1
            If .Cells(i, 10).Value = "" Then
                .Range(.Cells(i, 2), .Cells(i, 10)).Copy
                .Range(.Cells(i, 2), .Cells(i, 10)).Offset(-1, 9).PasteSpecial xlPasteValues
                .Rows(i).EntireRow.Delete
                Counter = Counter + 1
            End If
        Next i

        For i = HeaderRow + 2 To LastRow - Counter
            For k = 1 To 7 'Metrics on YTD to SI
                .Cells(i, k + 19).FormulaR1C1 = "=RC[-17]-RC[-8]"
                .Cells(i, k + 27).FormulaR1C1 = "=RC[-8]/RC[-25]"
            Next k
            .Cells(i, 27).FormulaR1C1 = "=RC[-8]/RC[-25]" 'Metric on QTR
        Next i

    End With
End Sub

---

哦-我还假设您在以下行中有错误：

YTD_2s = "=S" + CStr(i) + "/B" + CStr(i)

我想应该是：

YTD_2s = "=T" + CStr(i) + "/C" + CStr(i)

---

您刚刚删除了范围所在的

行（i）

。能否尝试在循环开始时删除？或者减少i并继续迭代如果声明

sht

工作表变量并将其设置为

工作表（“比较性能1”）

，则代码将更短，更易于调试。在这里，您还管理许多不必要的变量：如果您声明一个变量，并且只使用一次，那么您可能不需要它<代码>短程（“U”和i）。公式=“=D”+CStr（i）+“-M”+CStr（i）更容易管理YTD_2s上的良好捕获。作为一个VBA新手，你的代码看起来比我的复杂得多。我知道我的设置在所有的变量设置中都是多余的，但我宁愿它慢而有效，也不愿它快而出错。你的代码会和我想做的一样吗？你为什么不试试看呢？从本质上讲，它应该做问题中编码的事情——但问题在于该代码是否适合您的使用，或者是否需要修改。没有看到电子表格，我不得不猜测使用情况。代码本身被分成3个块；第一种方法获取标题，将其拆分为一个数组，然后将每个数组值粘贴到所需的单元格中。第二部分分析丢失的数据并删除不一致的行（如果有错误，可能在这里）。第三个只是使用相对公式添加公式。它对我有效，但你需要测试它。。。