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