如果你希望在复制Excel表格时保持其与原始表格大小相同，可以按照以下步骤进行操作：
打开原始Excel文件，并选择你想要复制的表格。
按下“Ctrl+C”（Windows）或“Command+C”（Mac）来复制选定的表格。
打开你想要粘贴目标的新Excel文件。
在新Excel文件中，选择与原始表格相同的大小和位置，并按下“Ctrl+V”（Windows）或“Command+V”（Mac）来粘贴表格。
在粘贴时，确保选项中的“保持源格式”或“匹配目标格式”等选项未被勾选，这样可以使表格保持原始大小。
如果你希望通过VBA脚本在Excel中自动复制并粘贴一个与原始表格大小相同的表格，可以尝试使用以下代码：
vbaSub CopyTableWithSameSize() Dim sourceTable As Table Dim targetWorksheet As Worksheet ' 选择源工作表和目标工作表 Set sourceTable = ActiveSheet.Tables(1) Set targetWorksheet = Worksheets("Sheet2") ' 将 "Sheet2" 更改为你的目标工作表名称 ' 复制源表格 sourceTable.Copy Before:=targetWorksheet.Cells(1, 1) ' 调整目标表格大小以匹配源表格 With targetWorksheet.Tables(1) .CellWidth = sourceTable.CellWidth .Style = sourceTable.Style .ShowTableStyleRowStripes = sourceTable.ShowTableStyleRowStripes .ShowTableStyleColumnStripes = sourceTable.ShowTableStyleColumnStripes .ShowTableStyleFirstColumn = sourceTable.ShowTableStyleFirstColumn .ShowTableStyleLastColumn = sourceTable.ShowTableStyleLastColumn .ShowSummaryRow = sourceTable.ShowSummaryRow .ShowSummaryColumn = sourceTable.ShowSummaryColumn End WithEnd Sub
请注意，在运行这段VBA代码之前，需要先在Excel的“开发者”选项卡中启用VBA编程功能。然后将上述代码复制到VBA编辑器中的新模块中，并运行这段代码。这段代码会将当前活动工作表中的第一个表格复制到名为“Sheet2”的新工作表中，并调整其大小以匹配源表格。你可以根据需要更改工作表名称和目标表格的大小设置。
发表评论:
◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。