是一個姓名和編號列印一回嗎？用迴圈來呼叫 程式碼如下，執行這個程式碼（宏）時，自動把sheet1中的A列姓名和B列編號按順序對應寫入到sheet2的A1和B1中（你要寫入其他單元格，只需要修改程式碼中寫入的的A1和B1即可。Sub 列印() Dim arr Dim x&, R& With Sheets("sheet1") R = .Range("A65536").End(xlUp).Row "R為sheet1A列最後一個非空單元格行號 arr = .Range("A1:B" & R).Value "給陣列賦值 End With With Sheets("sheet2") For x = 1 To UBound(arr) .Range("A1") = arr(x, 1) "把陣列中的值，順序寫入sheet2的A1、B1單元格 .Range("B1") = arr(x, 2) .PrintOut "列印sheet2 Next x End WithEnd Sub