excel有1.2.3.4张表格，怎么设置用表格1来控制2.3.4表格的样式？改变1表格样式，2.

发布网友发布时间：2022-02-25 07:34

共1个回答

热心网友时间：2022-02-25 09:04

右击Sheet1——查看代码，将下面的代码复制到Sheet1的代码部分

Dim bChange As Boolean

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If bChange = False Then
        Application.ScreenUpdating = False
        bChange = True
        Sheets(1).Cells.Select
        Selection.Copy
        Sheets(2).Range("A1").PasteSpecial Paste:=xlPasteFormats
        Target.Select
        bChange = False
        Application.ScreenUpdating = True
        Application.SendKeys "{ESC}"
    End If
End Sub

可以在Sheet1中更改选择后实现Sheet2的格式相同，Sheet3、Sheet4可以类似处理。

因为没有更改单元格后自动运行的事件，所以代码也不太完美，基本能实现你的功能。

不在同一个表需要两个表都打开才行，代码可能会出错，所以没写上。