关于一道VB题，请教高手

来源：百度知道 编辑：UC知道 时间：2024/05/30 18:54:59
想设计一个宏，就是从EXCEL 的A表拿数据自动填入B表，
比如，将A表第一列的数据一个一个地填如B表的(1,1)格，每填入一个执行一次打印B表。(当A表的数据用完后，程序终止)

谢谢
这个循环不终止阿

Sub abc()
Sheets(1).Select
For i = 1 To ActiveSheet.UsedRange.Rows.Count
If Sheets(2).Range("A1").Value = "" Then Exit Sub '新增加的判断语句
Sheets(2).Range("A1").Value = Range("A" & i).Value
Sheets(2).PrintOut Copies:=1, Collate:=True
Next
End Sub
不知道你的表格有什么问题，正常情况下等第一列是数据读完了就会终止循环。如果你在循环体第一行加入一个判断，那么还可以增加一个保障：
If Sheets(2).Range("A1").Value = "" Then Exit Sub