自动填充另一张纸中的一张纸中的列

Question

我想从sheet1填充sheet2中的列。如果我有列A在Sheet1我希望A在Sheet2具有相同的信息。

我尝试使用，=sheet1!A1但它仅返回A1in中的值sheet1。我尝试使用，=sheet1!A但只返回#NAME?。

如果Column Afrom Sheet1具有动态范围（它可以为空或具有500或1000行（我正在从数据库中填充sheet1））。如何在另一张显示所有500或1000行的工作表中使用其中的某些列？

Answer 1

如果我没问题，您想在sheet2！A1中使用sheet1！A1，在sheet2！A2中使用sheet1！A2，...对吗？

这可能不是最好的方法，但是您可以输入以下内容

= IF（sheet1！A1 <>“”，sheet1！A1，“”）

并将其向下拖动到所需的最大行数。

Answer 2

我在谷歌表格中使用过

 ={sheetname!columnnamefrom:columnnameto}

例子：

1. ={sheet1!A:A}
2. ={sheet2!A4:A20}

Answer 3

下面的代码将查找sheet1中最后使用的行，并将从A1到A列中最后使用的行的整个范围复制到Sheet2中完全相同的位置。

Sub test()

    Dim lastRow As Long
    lastRow = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row
    Sheets("Sheet2").Range("A1:A" & lastRow).Value = Sheets("Sheet1").Range("A1:A" & lastRow).Value

End Sub