查找、复制并粘贴为 link 所有填充的行，但只有有限数量的列

Question

我正在尝试在我的 'All Data' sheet 中搜索满足第一列中特定条件的行，然后将这些行复制到名为 'TAP' 的 sheet 中. 这一切都很好，但我想保留 sheet 之间的 link，这样当 'All Data' 中的数据更新时，'TAP' 中的数据也会发生变化。为此，我选择将其粘贴为 link.

再次，这工作正常，但正因为如此（我认为）'All Data' 中未填充的所有其他列在 'TAP' sheet 中填充为零被复制时。因此，我想将复制限制为所有填充的行，但仅限前 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，因此非常感谢任何帮助。

Answer 1

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

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

至：

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

查找、复制并粘贴为 link 所有填充的行，但只有有限数量的列

Find, copy and paste as link all filled rows but only a limited number of columns

excel

vba

copy-paste

multiple-columns