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

【问题标题】：Find, copy and paste as link all filled rows but only a limited number of columns查找、复制并粘贴为链接所有填充的行，但只有有限数量的列
【发布时间】：2020-03-06 13:18:45
【问题描述】：

我正在尝试在“所有数据”表中搜索满足第一列中特定条件的行，然后将这些行复制到名为“TAP”的表中。这一切都很好，但我想保留工作表之间的链接，以便当“所有数据”中的数据更新时，“TAP”中的数据也会发生变化。为此，我选择将其粘贴为链接。

同样，这很好用，但正因为如此（我认为）所有其他未填充到“所有数据”中的列在被复制时都会在“TAP”表中填充为零。因此，我希望将复制限制为所有填充的行，但仅限于前 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，因此我们将不胜感激。

【问题讨论】：

标签： excel vba multiple-columns copy-paste

【解决方案1】：

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

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

到：

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

【讨论】：