Excel VBA循环行不起作用，运行时错误“1004”

我想创build一个循环，通过在Excel中选定范围内的行，并输出到每一行的分数，但我得到这个错误引用for循环（设置VARIABLE1）中的firt行。 如果我用“A2”replace.Range（“A”），那么我得到一个输出，但只有第一行自然。 我怎样才能让代码循环每一行？ 代码：

Dim rng As Range Dim Final_risk_score Set rng = Worksheets("sheet name").Range("A1:Z100") For Each Row In rng.Rows VARIABLE1 = Worksheets("sheet name").Range("A") VARIABLE2 = Worksheets("sheet name").Range("K") VARIABLE3 = Worksheets("sheet name").Range("J") VARIABLE4 = Worksheets("sheet name").Range("W") VARIABLE5 = Worksheets("sheet name").Range("G") VARIABLE6 = Worksheets("sheet name").Range("N") VARIABLE7 = Worksheets("sheet name").Range("X") VARIABLE8 = Worksheets("sheet name").Range("Y") VARIABLE9 = Worksheets("sheet2").Range("N7") Final_score = Score_calculations(VARIABLE1, VARIABLE2, VARIABLE3, VARIABLE4, VARIABLE5, VARIABLE6, VARIABLE7, VARIABLE8, VARIABLE9) Worksheets("sheet name").Range("Z").Value = Final_score Next Row 

Answer 1

首先不要使用Row作为variables。 使用像Rw东西。

然后将.Range("A")更改为：

  .Cells(Rw.Row,"A") 

为所有的范围做这个。 范围必须附有一行。

你也可以这样做：

  .Range("A" & Rw.Row) 

所以：

 Dim Rw as Range Dim rng As Range Dim Final_risk_score Set rng = Worksheets("sheet name").Range("A1:Z100") For Each Rw In rng.Rows VARIABLE1 = Worksheets("sheet name").Cells(Rw.Row,"A") VARIABLE2 = Worksheets("sheet name").Cells(Rw.Row,"K") VARIABLE3 = Worksheets("sheet name").Cells(Rw.Row,"J") VARIABLE4 = Worksheets("sheet name").Cells(Rw.Row,"W") VARIABLE5 = Worksheets("sheet name").Cells(Rw.Row,"G") VARIABLE6 = Worksheets("sheet name").Cells(Rw.Row,"N") VARIABLE7 = Worksheets("sheet name").Cells(Rw.Row,"X") VARIABLE8 = Worksheets("sheet name").Cells(Rw.Row,"Y") VARIABLE9 = Worksheets("sheet2").Range("N7") Final_risk_score= Score_calculations(VARIABLE1, VARIABLE2, VARIABLE3, VARIABLE4, VARIABLE5, VARIABLE6, VARIABLE7, VARIABLE8, VARIABLE9) Worksheets("sheet name").Cells(Rw.Row,"Z").Value = Final_risk_score Next Row 

Answer 2

将循环更改为：

 Dim myRow As Range For Each myRow In rng.Rows With Worksheets("sheet name") VARIABLE1 = .Range("A" & myRow.Row) VARIABLE2 = .Range("K" & myRow.Row) 'etc End With Next Row 

因此，只要你正确地引用范围，它就会工作。