时间戳

首页 > 解决方案 > 如何使用宏 Visual Basic 循环遍历数据表以复制到另一个工作表

excel - 如何使用宏 Visual Basic 循环遍历数据表以复制到另一个工作表

问题描述

我正在尝试获取电子表格中的某个列并将该信息传输到另一个电子表格。我怎样才能做到这一点？

例如，我想让我当前的宏对某一列中的所有单元格重复，如您在此处看到的：

Sub Test()
    Sheets("Sheet1").Select
    Range("A2").Select 'I want to select all values in column A, starting at row 2
    Selection.Copy
    Sheets("Sheet2").Select
    Range("C2").Select 'I want everything to be pasted in column C, starting at row 2
    ActiveSheet.Paste
End Sub

标签： excelvba

解决方案

只需复制/粘贴从第二行到最后一行的整个范围。

Sheets("Sheet1").Range("A2:A" & Rows.Count).Copy Destination:=Sheets("Sheet2").Range("C2")

为了彻底，最好也Rows使用工作表来限定通话：

Sheets("Sheet1").Range("A2:A" & Sheets("Sheet1").Rows.Count).Copy _
       Destination:=Sheets("Sheet2").Range("C2")

是这里的 _续行。

推荐阅读