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

发布网友发布时间：2023-12-28 03:06

共2个回答

热心网友时间：2024-03-30 09:01

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

热心网友时间：2024-03-30 08:59

可以用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

未测试
希望对您有用