Excel 查找、复制并粘贴为链接所有填充行，但仅限于有限数量的列

我试图在我的“所有数据”表中搜索满足第一列中特定条件的行，然后将这些行复制到名为“点击”的表中。 这一切都很好，但我想保留工作表之间的链接，这样当“所有数据”中的数据更新时，“点击”中的数据也会更改。为了实现这一点，我选择将其粘贴为链接

同样，这很好，但正因为如此（我认为）“所有数据”中未填充的所有其他列在“点击”工作表中被复制时用零填充。因此，我希望将复制限制为所有填充的行，但仅限于前14列，以避免其余列为零

我的代码如下：

Private Sub CommandButton1_Click()
a = Worksheets("All Data").Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To a

    If Worksheets("All Data").Cells(i, 1).Value = "TAP" Then
        Worksheets("All Data").Rows(i).Copy
        Worksheets("TAP").Activate
        b = Worksheets("TAP").Cells(Rows.Count, 1).End(xlUp).Row
        Worksheets("TAP").Cells(b + 1, 1).Select
        ActiveSheet.Paste Link:=True
        Worksheets("All Data").Activate
    End If

Next

Application.CutCopyMode = False

ThisWorkbook.Worksheets("All Data").Cells(1, 1).Select
End Sub

---

很抱歉，这是我第一次尝试VBA，因此非常感谢您的帮助。

要复制1-14列而不是整行，请更改：

Worksheets("All Data").Rows(i).Copy

致：

Worksheets("All Data").Range(Cells(i, 1), Cells(i, 14)).Copy