如何在VBA中复制整张纸并将其粘贴到另一张纸中? [英] How to copy a whole sheet and transpose paste into another sheet in VBA?

问题描述

工作环境:Excel 2013.

Working environment:Excel 2013.

目标:

1. 复制整张纸
2. 创建另一个工作表
3. 将复制的工作表粘贴到此新工作表中.

我正在使用的代码如下:

the code that i am using is as below:

Worksheets("Sheet4").Copy
Worksheets("Master").PasteSpecial Transpose:=True

但是，当我运行它时，出现了错误

however when i run it, i got an error

应用程序定义或对象定义错误

application defined or object defined error

任何人都可以帮助我找出原因吗?

Anyone can help me to figure out why?

推荐答案

也许您喜欢下面的代码:

Maybe you after something like the code below:

Option Explicit

Sub CreateAndCopyTran()

Dim ws As Worksheet

' create a new worksheet, and name it "Master"
Set ws = ThisWorkbook.Worksheets.Add(after:=ThisWorkbook.Worksheets(1))
ws.Name = "Master"

' copy the UsedRange and Transpose
Worksheets("Sheet4").UsedRange.Copy
ws.Range("A1").PasteSpecial xlPasteAll, Transpose:=True

End Sub

这篇关于如何在VBA中复制整张纸并将其粘贴到另一张纸中?的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！