如何复制使用VBA宏复制（不复制）复制 [英] How to replicate a sheet using VBA Macro (not copy) replicate

问题描述

所以我希望Sheet2看起来就像Sheet1一样。

我是VBA宏的新手，请指导我。

解决方案

的方式

方式1最佳方式

  ThisWorkbook.Sheets（Sheet1）。复制_ 
之后：= ThisWorkbook.Sheets（ThisWorkbook.Sheets.Count）
  

方式2

  Sub Sample（）
 Dim wsToCopy As Worksheet，wsNew As Worksheet 
 
错误GoTo Whoa：
 
设置wsToCopy = ThisWorkbook.Sheets（Sheet1）
设置wsNew = ThisWorkbook.Sheets.Add 
 
 wsNew.Name =副本& wsToCopy.Name 
 
 wsToCopy.Cells.Copy wsNew.Cells 
 
退出子
哇：
 MsgBox Err.Description 
 End Sub 
  

注意

如果您使用 Excel 2003 ，则 WAY 2 可能是取决于数据的最佳方式。请查看此

How would I replicate a sheet using VBA Macro but not use the VBA copy method?

So I want Sheet2 to look exactly like Sheet1 after.

I am new to VBA Macros so please guide me.

解决方案

Here are couple of ways

WAY 1 Best way to do it

ThisWorkbook.Sheets("Sheet1").Copy _
After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

Way 2

Sub Sample()
    Dim wsToCopy As Worksheet, wsNew As Worksheet

    On Error GoTo Whoa:

    Set wsToCopy = ThisWorkbook.Sheets("Sheet1")
    Set wsNew = ThisWorkbook.Sheets.Add

    wsNew.Name = "Copy of " & wsToCopy.Name

    wsToCopy.Cells.Copy wsNew.Cells

    Exit Sub
Whoa:
    MsgBox Err.Description
End Sub

NOTE:

In case you are using Excel 2003, then WAY 2 might be the best way depending on the data. Please SEE THIS

这篇关于如何复制使用VBA宏复制（不复制）复制的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！