Excel 循环vba代码以通过范围调用宏

Excel 循环vba代码以通过范围调用宏,excel,vba,loops,Excel,Vba,Loops,我有一个宏,它查看指定单元格中的数据选择,它从选择中的每一行获取值,并填充excel电子表格。它调用另一个正在运行的宏 当我启动“开始”和“完成”单元格时,此代码运行良好,但是我希望能够使用一个变量范围,以便它自动找到最后一个单元格并在整个选择中运行 我已尝试在工作表(“选择”).Range(“A43”).End(xlDown).行中为每个rngMyCell使用,但这仅选择列表中的最后一项,不会遍历所有项。谁能告诉我哪里做错了 谢谢 Sub Macro1() Sheets("

我有一个宏,它查看指定单元格中的数据选择,它从选择中的每一行获取值,并填充excel电子表格。它调用另一个正在运行的宏

当我启动“开始”和“完成”单元格时,此代码运行良好,但是我希望能够使用一个变量范围,以便它自动找到最后一个单元格并在整个选择中运行

我已尝试在工作表(“选择”).Range(“A43”).End(xlDown).行中为每个rngMyCell使用
,但这仅选择列表中的最后一项,不会遍历所有项。谁能告诉我哪里做错了

谢谢

    Sub Macro1()

Sheets("Selection").Range("B6").Value = Now()
 Dim rngMyCell As Range
 
 Application.ScreenUpdating = False
 
 For Each rngMyCell In Sheets("Selection").Range("A43:A50")
 Sheets("Selection").Range("C3").Value = rngMyCell
 Call RunAll
 Next rngMyCell
 
 Application.ScreenUpdating = True
Sheets("Selection").Range("B7").Value = Now()
MsgBox ("All done")

End Sub

在过帐代码中:
用于每个rngMyCell的表格(“选择”)。范围(“A43”)。结束(xlDown)。行
您正在循环一个数字,但不是范围(这是错误的)。每个…Next语句中的组应为对象集合或数组的名称

要在整个范围内动态循环,请尝试以下操作:

    For Each rngMyCell In Sheets("Selection").Range("A43:A" & Sheets("Selection").Range("A43").End(xlDown).Row)

谢谢,这是有效的。这段代码是如何工作的,因为它是我缺少的部分{Range(“A43:A”)。