如何在excel中实现一个工作表录入,但是不保存,另个工作表自动录入并保存……

2024年11月28日 10:54
有2个网友回答
网友(1):

可以用vba弄 不过很麻烦 而且可能会出错
而且你的提问说的不是很清楚
我只能告诉你用worksheet的change事件
Private Sub Worksheet_Change(ByVal Target As Range)

if 条件
操作
end if

End Sub

条件很多
比如可以是如果改变的单元格是哪个哪个
if target.row=1 and target.column=1 then
这个代码意思是说改变的单元格是 [a1]的话 则执行。。。

又比如可以是如果改变的单元格内容是
if target =1 then
这个代码意思是说改变的单元格的值是1的话 则执行。。。

你的操作则是 (自己把文件名 表格名之类的改一改)
r1 = Workbooks("book2").Worksheets("sheet1").[a65536].End(xlUp).Row
c1 = Cells(Selection.Row, 256).End(xlLeft).Column
For c = 1 To c1
Workbooks("book2").Worksheets("sheet1").Cells(r1 + 1, c) = Cells(Selection.Row, c)
Next

未测试
希望对您有用

网友(2):

在一个工作表输入数据,没保存时,另一个工作表是可以自动录入的,
但第一个工作表是“源”,“源”最终保存,另一个工作表的数据也就自然保存了,如果“源”最终不保存,另一个工作表又何来数据?