一、首先按下组合键ALT+F11，这将打开Visual Basic编辑器。接着在左侧的“工程资源管理器”中双击“Microsoft Excel 对象”下的“ThisWorkbook”，在右侧的代码窗口中粘贴以下代码（根据实际情况调整代码中的表名）。Sub 强行复制()。&#39；修改以下两行中的工作表名字。Dim a As String： a = &quot；Sheet1&quot；&#39；修改成需要复制的表名。Dim b As String： b = &quot；Sheet2&quot；&#39；修改成粘贴的空白表名。&#39；以下不需要修改。Sheets(a).Cells.Copy。Sheets(b).Range(&quot；A1&quot；).Select。