Vba 将一行或多行粘贴到表底部时如何更新列中的数据

我一直在为这个密码绞尽脑汁。我试图将一组数据从表“CST”复制到当前填充的名为“HT_表”的表的末尾，并输入为我粘贴的条目运行的测试类型。历史数据表应该有一个正在运行的条目列表

每次运行宏时，我都想将“[[Social Security Number]：[Rehire Date]]”复制到另一个表的底部，该表有一个正在运行的选择列表，并在其右侧的“测试”列下添加“贷款”

---

如果只有一行粘贴到表的底部，那么Selection.End（x1Down））就会遇到问题。上面的代码选择一行，然后一直高亮显示到工作表的末尾。

强烈建议这样做，因为这可能会导致一些混乱/错误。我建议仔细阅读并遵循建议……但是，现在，试着往上看：

Range（Selection，Range（Cells（Selection.Row，Selection.Column），Cells（Rows.Count，Selection.Column））.End（xlUp））=“Loan”

？@BruceWayne-括号不匹配，但无论如何可能不起作用-我以前遇到过

结尾（xlUp）的问题

停止在表格的最后一行，而不是表格中最后使用的单元格。（不过值得一试）@BruceWayne谢谢你的提示。您将如何去掉这个：“范围（“SSN”）.End（xlDown）。选择ActiveCell.Offset（1，0）。粘贴特殊”？有没有办法引用表并将我复制的内容粘贴到表中已有内容的下方？@YowE3k这就是我遇到的BryceWayne和其他类似代码的问题。它选择列中的所有空行，但也选择下一个填充的单元格。

Sub Copy_Data

'Copy critical data
     Dim tbl As ListObject
     Set tbl = CST.ListObjects(1)
     Range(tbl & "[[Social Security Number]:[Rehire Date]]").Copy   

     Windows("Historical Testing.xlsx").Activate

'I named the column in the table I am pasting to "SSN" 

    Range("SSN").End(xlDown).Select
    ActiveCell.Offset(1, 0).PasteSpecial
    Dim PY As Worksheet
    Set PY = ActiveSheet
    With PY.ListObjects("HT_Table")

    .ListColumns("Test").Range.Select
    ActiveCell.End(xlDown).Select
    ActiveCell.Offset(1, 0).Select
    Range(Selection, Selection.End(xlDown)) = "Loan"
    End With
End Sub