鲁达 准备2个表格
登记
存档
说明：存档表格中第一行名称跟登记表格中要一致。一会你看代码，可以修改。
基本步骤： 开发模式----visual basic--插入---模块----
输入以下代码：
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
修改方法：
1、根据我的表，修改代码中的表格名称
2、如果不需要这么多项，先修改登记表项目，然后把第一列和第三列复制，选择性粘贴-转置，复制到存档第一行，记住各项名称顺序。
代码中 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]) 里面的顺序号可以删，可以增。
'.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 里面的顺序要与上一行顺序一致即可。
3、 Sheets("存档").Cells(r, 1).Resize(, 28) = Arr 28是存档的单元格个数，改成你需要的。
可以插入艺术字--“保存数据”---右击--指定宏---选“保存数据”--确定
保存下试试
怎么样，关注我，我们一起来做！