excel关于写保存数据到指定表的宏代码,请高手指教,把表1的数据点击保存就能直接保存到表2里。

2025-02-27 11:51:57
推荐回答(1个)
回答1:

说明此段代码适用在同一个工作簿中。不同的工作簿中不适用。
修改工作表名称及单元格地址满足自己要求
Sub 保存()
lastrow = Worksheets("保存数据的工作表名称").UsedRange.SpecialCells(xlCellTypeLastCell).Row
Sheets("保存数据的工作表名称").Select
Sheets("保存数据的工作表名称").Cells(lastrow+1,列地址) = Sheets("录入数据的工作表名称").Cells(单元格地址)
.
.
.
End Sub