可以做個簡單的列印模版：先頁面佈局-頁面設定裡，把列印區域設定為A1到J5，然後在第5行地名前面插入一行空白，並把D1單元格地名也留空，最後用公式或者宏來自動填充。用公式的話，只能一次打一行，比如：在N1單元格輸入數字（要列印第幾行），在D1輸入=INDEX(A:A,$N$1)，在A5輸入=INDEX(A:A,$N$1)並向右拖曳到J5單元格。這樣只要修改N1的數字，就可以改變列印的內容。用宏的話，可以連續列印，比如：在N1單元格輸入數字（從第幾行開始列印），在N2輸入數字（列印到第幾行），然後點選開發工具-插入-Acitive控制元件，隨便畫一個按鈕，右鍵點按鈕檢視程式碼，在跳出來的程式碼窗口裡貼上這些：Private Sub CommandButton1_Click()On Error GoTo 100With Me a = .[n1] "a是n1單元格的數字（從第幾行開始列印） b = .[n2] "b是n2單元格的數字（列印到第幾行） For i = a To b .[d1] = .Cells(i, 1) "d1單元格自動填充地名 arr = .Range(Cells(i, 1), .Cells(i, 10)) .[a5].Resize(1, 10) = arr "a5單元格自動填充地名、對應的資料 .PrintOut Copies:=1, Collate:=True Next iEnd With100:End Sub貼上好之後，在程式碼視窗或者excel點選“退出設計模式”，就可以單擊按鈕來列印了。列印之前，最好先在程式碼視窗點選F8來逐句執行測試一下，沒有問題再批次列印。如果程式碼出現異常，可以按住ctrl+break來強行終止。
可以做個簡單的列印模版：先頁面佈局-頁面設定裡，把列印區域設定為A1到J5，然後在第5行地名前面插入一行空白，並把D1單元格地名也留空，最後用公式或者宏來自動填充。用公式的話，只能一次打一行，比如：在N1單元格輸入數字（要列印第幾行），在D1輸入=INDEX(A:A,$N$1)，在A5輸入=INDEX(A:A,$N$1)並向右拖曳到J5單元格。這樣只要修改N1的數字，就可以改變列印的內容。用宏的話，可以連續列印，比如：在N1單元格輸入數字（從第幾行開始列印），在N2輸入數字（列印到第幾行），然後點選開發工具-插入-Acitive控制元件，隨便畫一個按鈕，右鍵點按鈕檢視程式碼，在跳出來的程式碼窗口裡貼上這些：Private Sub CommandButton1_Click()On Error GoTo 100With Me a = .[n1] "a是n1單元格的數字（從第幾行開始列印） b = .[n2] "b是n2單元格的數字（列印到第幾行） For i = a To b .[d1] = .Cells(i, 1) "d1單元格自動填充地名 arr = .Range(Cells(i, 1), .Cells(i, 10)) .[a5].Resize(1, 10) = arr "a5單元格自動填充地名、對應的資料 .PrintOut Copies:=1, Collate:=True Next iEnd With100:End Sub貼上好之後，在程式碼視窗或者excel點選“退出設計模式”，就可以單擊按鈕來列印了。列印之前，最好先在程式碼視窗點選F8來逐句執行測試一下，沒有問題再批次列印。如果程式碼出現異常，可以按住ctrl+break來強行終止。