2017-02-15 66 views

回答

0

尝试类似:

Option Explicit 
Sub test() 
    Dim i As Integer 
    i = 1 
    While Sheets(2).Cells(i, 1).Value <> "" 
     Sheets(1).Cells(1, 1).Value = Sheets(2).Cells(i, 1).Value 
     Sheets(1).PrintOut 
     i = i + 1 
    Wend 
End Sub 
相关问题