时间戳

首页 > 解决方案 > VBA根据列标题名称复制列的UsedRange

excel - VBA根据列标题名称复制列的UsedRange

问题描述

我正在尝试根据列名将数据从一个工作表复制到另一个工作表。在源工作表中，数据从 A1 开始。在目标工作表中，数据应粘贴在 A11 行而不是 A1 行。如果我使用 EntireColumn.Copy，则会收到有关源和目标复制区域不同的错误。我遇到了 UsedRange 属性，但我无法将其应用于我的场景

    For Each columnName In allColumns
    'call a function to get the column to copy 
    If columnToCopy > 0 Then
        columnName.Offset(1, 0).EntireColumn.Copy Destination:=ws2.Cells(11, columnToCopy)
    End If
Next

在上面的代码片段中，不想使用“EntireColumn”。我只想要有数据的列。变量 columnName 是例如“Person ID”

做这个的最好方式是什么？

谢谢。

标签： excelvbacopy-pasteworksheetcolumnname

解决方案

这将是一种典型的方法：

    For Each ColumnName In allColumns
        If columnToCopy > 0 Then
            With ColumnName.Parent
                .Range(ColumnName.Offset(1, 0), .Cells(.Rows.Count, ColumnName.Column).End(xlUp)).Copy _
                              Destination:=ws2.Cells(11, columnToCopy)
            End With
        End If
    Next

假设allColumns是单单元格范围/列标题的集合。

推荐阅读