2017-02-15 67 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 
相關問題