请教EXCEL宏的问题

来源：百度知道 编辑：UC知道 时间：2024/06/30 08:49:55
A表和B表
1。将A表第一列的第一个数据放到B表某个单元格
2。将B表执行打印
3。将A表第一列的第二个数据放到B表同一个单元格(覆盖)
4。将B表执行打印

到A表第一列数据为空时终止。

谢谢

Sub printsheetBusingsheetAdata()
'选好A表数据的第一个单元格，此例是A1
Sheets("A").Range("A1").Select
'直到数据列为空
Do Until ActiveCell.Value = 空值
'将A表活动单元格数据写入B表的指定单元格，此例是B2
Sheets("B").Range("B2").Value = ActiveCell.Value
'在选定的打印机打印B表
Sheets("B").PrintOut Copies:=1, Collate:=True
'A表的数据移下一个
ActiveCell.Offset(1, 0).Select
Loop
End Sub