1、先設計類似下表（我命名為登記表）

2，建立存檔表格（我命名為異動存檔）

3、返回登記表，開發工具--插入----第一個圖示--名稱為“儲存資料“”--右擊--指定宏--建立一個儲存資料的宏

上面名稱和登記表的順序有關係

宏的內容如下

Sub 儲存資料()

Dim r, Arr

With Sheets("異動登記")

Arr = Array(.[B2], [B3], [B4], [B5], [B6], [B7], [B8], [B9], [B10], [B11], [B12], [B13], [B14], [B15], [D2], [D3], [D4], [D5], [D6], [D7], [D8], [D9], [D10], [D11], [D12], [D13], [D14], [D15])

r = Sheets("異動存檔").[A65536].End(xlUp).Row + 1

Sheets("異動存檔").Cells(r, 1).Resize(, 28) = Arr

".Range("B2, B3, B4, B5, B6, B7, B8, B9, B10, B11, B12, B13, B14, B15, D2, D3, D4, D5, D6, D7, D8, D9, D10, D11, D12, D13, D14, D15").ClearContents

End With

End Sub

其中 Arr = Array(.[B2], [B3], [B4], 行中B2 B3 ......分別是輸入各項資料的單元格號

Sheets("異動存檔").Cells(r, 1).Resize(, 28) = Arr 28是你要輸入的資料數量

".Range("B2, B3, B4, B5, B6, B7, ....中B2 b3分別是存檔單元格資料順序號（這裡是登記表中b2資料儲存到存檔表格中第一個位置，B3是第二個位置......）

好了，我們在登記表輸入完資料後，點“儲存資料”在存檔表格中就會把資料儲存到第一行，再次輸入其他資料，存檔資料會在下一行儲存。