excel如何实现其余表a列都和表1的a列一样

疾风草 · 发表于 2022-12-9 09:52

各位大佬，有没有方法能实现我想要的功能

复制粘贴链接的方式不想要，因为有0的出现；
数据连接我有尝试过，会变成表格，让内容颜色都不见了，所以想求助各位大佬
自己只有简单的vba基础，认知面较窄，不知道如何解决这个问题，希望大佬能抽空来解决；给大佬小红花了！！！

实现功能：

1.excel内所有sheet表格a列、b列内容都和sheet1的a、b列内容一致，当sheet1的a列、b列内容修改，其余sheet表格都相应会修改；文本颜色还是保持的
(如果两列比较麻烦，只留a列也可以）

2.如果能新建sheet表格也能让新sheet的a列、b列和sheet1的a列、b列相同就更好了(如果两列比较麻烦，只留a列也可以）

[size=0.83em]image.jpg (106.43 KB, 下载次数: 0)
下载附件 [url=]保存到相册[/url]

[color=rgb(153, 153, 153) !important]2022-12-9 09:34 上传

image.png (97.11 KB, 下载次数: 0)

3190496160 · 发表于 2022-12-9 10:01

Sub 批量拷贝()
Application.ScreenUpdating = False
Dim rng As Range
With Sheets("sheet1")
rs = .Cells(Rows.Count, 1).End(xlUp).Row
Set rng = .Range("a1:b" & rs)
End With
For Each sh In Sheets
If sh.Index > 1 Then
      r = sh.Cells(Rows.Count, 1).End(xlUp).Row
      sh.Range("a1:b" & r).Clear
      rng.Copy sh.[a1]
End If
Next sh
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160 · 发表于 2022-12-9 10:02

如果新增工作表或者sheet1数据有更新，点击按钮重新写入数据即可

列子.rar (19.63 KB, 下载次数: 4)

gwjkkkkk · 发表于 2022-12-10 16:35

请楼主参考附件。。。

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

[求助] excel如何实现其余表a列都和表1的a列一样