Excel 对同一工作簿中其他工作表的工作表引用

我有一个excel表格，其中包含表格、图表等。我需要在同一工作簿或其他工作簿中复制相同的表格。这是为了允许用户打印。只有重复工作表的格式将被更改，其余工作表从源代码处保持不变。 希望我的问题清楚。

---

提前感谢您的帮助。

='{sheet name}'！{cell ref}

将{sheet name}替换为实际的工作表名称，{cell ref}替换为类似a1的内容

要复制工作表中的所有内容，请选中以下链接

开始录制宏

复制源工作表

更改新工作表中的格式

停止录制宏

---

下面的代码是您可以执行的示例

将原始工作表复制到新工作簿中，并根据需要设置工作表格式

Sub CopySheetToNewAndFormat()

    'copy sheet 1
    ThisWorkbook.Sheets("Sheet1").Copy
    'set new workbook
    Set NewWorkbook = ActiveWorkbook

    With NewWorkbook
        With .Sheets("Sheet1")

            'formatting example with range
            With .Range(.Cells(1, 2), .Cells(5, 5))
                'borders
                .Borders(xlEdgeBottom).LineStyle = xlContinuous
                .Borders(xlEdgeBottom).Weight = xlThin
                'aligment
                .HorizontalAlignment = xlCenter
                .VerticalAlignment = xlCenter

                'color
                With .Interior
                    .Pattern = xlSolid
                    .PatternColorIndex = xlAutomatic
                    .ThemeColor = xlThemeColorAccent1
                    .TintAndShade = 0.799981688894314
                    .PatternTintAndShade = 0
                End With
            End With
        End With
    End With

End Sub

有关更多格式化选项，您可以在手动格式化工作表时录制宏，并查看生成的代码/引用

---

编辑：因为您可能正在录制宏以检查格式选项，请通读此-

有很多方法可以做到这一点。在iOs上复制，转到文件，单击“限制权限”“下一步管理凭据”

---

根据需要定制

你是否在为这件事的某个方面而挣扎？不清楚您需要什么帮助。右键单击“工作表”选项卡，然后选择“移动”或“复制”。记录您这样做的代码起点，这将破坏目标文件的打印格式。@Sam您可能有错误的想法；堆栈溢出是专业（或热心）程序员在别处找不到问题解决方案时分享建议的地方。这既不是一个免费的代码编写服务，也不是一个教程网站，如果你想要一个编码服务，我建议你在网上搜索自由职业者并相应地支付他们。请阅读“如何最好地提问”，以便快速获得有关StackOverflow的有用答案。@Sam此外，尽管您的问题得到了尝试帮助您的答案，但我建议您在下一个问题之前阅读这些问题。这不会复制源表中的图表，也不会在空白处复制大量“0”。这是一个巨大的文件，但每次我运行宏时都会创建新的工作表。此外，我每次都需要运行宏来获得更新的工作表。还有一个sheets.delete。您需要重新运行宏或刷新公式（取决于您的方法），以在任何情况下获得更新的表格。打印表格应具有单独的打印格式。因此，只有数据才能到达目标工作表，而不会破坏预设的打印格式。你能给我举个例子吗。不知道宏。这是每次运行VB时创建新工作簿。我的要求是-当我更新eg-Sheet1（源）中的某些单元格时，可以在eg-sheet2（目标）中更新该单元格。应调整纸张2的格式以便打印。