如何在Excel中使用VBA将列从一张表复制到另一张？ [英] How can I copy columns from one sheet to another with VBA in Excel?

问题描述

我正在尝试编写一个宏，它将第1列的内容从表1复制到表2中。这是模块的外观，但是当我运行它时，我得到

运行时错误9，下标超出范围。

<$ p $选择
'选择列1 A1'
范围（A1：A3）。选择

Selection.Copy
范围（B1：B3）。选择

ActiveSheet.Paste

表格（Sheet2）选择
Application.CutCopyMode = False
End Sub

解决方案

在Excel 2007中，以下功能对我来说是非常正确的。
很简单，执行完整的副本（保留所有格式等）：

  Sheets（Sheet1）。列（1）.Copy Destination：= Sheets（Sheet2）。列（2）
  pre> 
 
 
列返回一个Range对象，因此这是利用Range.Copy方法。 Destination是此方法的一个选项 - 如果没有提供默认值，则将其复制到粘贴缓冲区。但是当提供时，这是一种简单的复制方式。
 
 
 
当手动复制Excel中的项目时，目标的大小和几何形状必须支持复制的范围。 / p> 
I'm trying to write a macro that copies the content of column 1 from sheet 1 to column 2 on sheet 2. This is how the module looks like but, when I run it, I get

  
Run time error 9, Subscript out of range.


Sub OneCell()
    Sheets("Sheet1").Select
    'select column 1 A1'
    Range("A1:A3").Select

    Selection.Copy
    Range("B1:B3").Select

    ActiveSheet.Paste

    Sheets("Sheet2").Select
    Application.CutCopyMode = False
End Sub

解决方案
The following works fine for me in Excel 2007.
It is simple, and performs a full copy (retains all formatting, etc.):
Sheets("Sheet1").Columns(1).Copy Destination:=Sheets("Sheet2").Columns(2)
"Columns" returns a Range object, and so this is utilizing the "Range.Copy" method. "Destination" is an option to this method - if not provided the default is to copy to the paste buffer. But when provided, it is an easy way to copy.

As when manually copying items in Excel, the size and geometry of the destination must support the range being copied.

                        
这篇关于如何在Excel中使用VBA将列从一张表复制到另一张？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！