如何在 for to next 中实现变量的循环？

xcg1979

如何在 for to next 中实现变量的循环？
Sub dy2()
Dim r As Integer
Dim i
r = Sheets("误差电子数据").Columns(1).SpecialCells(xlCellTypeVisible).Cells(1).Select
i = Sheets("误差电子数据").Range("A65536").End(xlUp).Row
For ri = r To i
Sheets("合格证正面").Range("l4") = Sheets("误差电子数据").ranges("ri")
Sheets("合格证正面").PrintOut Copies:=1, Collate:=True
Next
End Sub

xcg1979

哪位高手帮帮看怎么能调试通过？

9lee

r = Sheets("误差电子数据").Columns(1).SpecialCells(xlCellTypeVisible).Cells(1).Select
这句是错误的,r定义的是integer,是一个整数,根据上下,猜想应为:
r = Sheets("误差电子数据").Columns(1).SpecialCells(xlCellTypeVisible).Cells(1).row

Sheets("合格证正面").Range("l4") = Sheets("误差电子数据").ranges("ri")
这句的最后ranges("ri")的表达是错误的,没有ranges()的表达方式,因为不知你想要什么效果,所以不能帮你改正.

xcg1979

我的意思是对工作表Sheets("误差电子数据")中先自动筛选后的第一个可见单元格的数值赋给工作表Sheets("合格证正面").Range("l4") 然后实现打印Sheets("合格证正面")。

xcg1979

for to next 函数要求从某一具体的数据开始，但我这里是两个变量不知怎么搞，9lee 大哥帮忙看看怎么实现？

xcg1979

Sub dy2()
Dim r As Integer
Dim i
r = Sheets("误差电子数据").Columns(1).SpecialCells(xlCellTypeVisible).Cells(1).Row
i = Sheets("误差电子数据").Range("A65536").End(xlUp).Row
For ri = r To i
Sheets("合格证正面").Range("l4") = Sheets("误差电子数据").Range("ri")
Sheets("合格证正面").PrintOut Copies:=1, Collate:=True
Next
End Sub