VBA弄个影子工作表

15968725770 · 发表于 2023-4-23 17:08

本帖最后由 15968725770 于 2023-4-23 17:14 编辑

“Sheet1原本”里输入内容，“Sheet2影子”里就会自动生生成内容，表格A到Z列内容格式都一模一样。表格AA列以后就不随“Sheet1原本”变化

谢谢老师

ykcbf1100 · 发表于 2023-4-23 17:17

附件供参考。。。

ovxyz · 发表于 2023-4-23 17:22

其实对于这个问题，要看你的需求要什么程度了。
1、如果公式部分都定了，只从11行开始会有数据的变化，并且只有数据的变化，不涉及合并单元格，那就很简单：
就一句话就行了：
Private Sub Worksheet_Change(ByVal Target As Range)
Sheet2.Range(Target.Address) = Target
End Sub
2、如果涉及修改公式，合并单元格，那就稍微改改：
Private Sub Worksheet_Change(ByVal Target As Range)
Set tmp = Target
Cells.Copy
Sheet2.Activate
Sheet2.Cells.Select
Sheet2.Paste
Sheet1.Activate
tmp.Select
Application.CutCopyMode = False
End Sub

ovxyz · 发表于 2023-4-23 17:25

涉及合并单元格，修改颜色，我上传一下附件。

15968725770 · 发表于 2023-4-23 17:47

ovxyz 发表于 2023-4-23 17:25
涉及合并单元格，修改颜色，我上传一下附件。

AA列开始就不跟Sheet1内容变了，Sheet1里输入内容就往右换格，回车是下一行

ovxyz · 发表于 2023-4-23 17:55

本帖最后由 ovxyz 于 2023-4-23 17:58 编辑

这边建议你想要右换格，就用tab。想使用下一行就用回车。

15968725770 · 发表于 2023-4-23 18:25

ovxyz 发表于 2023-4-23 17:55
这边建议你想要右换格，就用tab。想使用下一行就用回车。

非常感谢老师！！！！！！

		自动登录	找回密码
密码			免费注册

[求助] VBA弄个影子工作表