Question

我正在尝试将两个不同的数据集放在一起，但这对我不起作用。这是代码。

Sheets("Event Data").Select
    Range("S:S,T:T,U:U,AA:AA,N:N").Select
    Range("Table_Query_from_PostgreSQL35W[[#Headers],[site_name]]").Activate
    Selection.Copy
    Sheets("Staff List").Select
    Range("A1:E1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False

 Sheets("Anon").Select
    Range("A:A,D:D,O:O,P:P,Q:Q").Select
    Range("P2").Activate
    Selection.Copy
    Sheets("Staff List").Select
    **Range("A2:E2").Select**
    ActiveSheet.Paste
    Application.CutCopyMode = False

我知道这不对。我遇到的问题是选择第一个空行（我可以为一行做）但是多行（A：E）。我正在寻找快速解决方案。谢谢。

Answer 1

对于A：E中的任何一个空白行，请尝试

dim nr as long
with workSheets("Staff List")
  nr = application.max(.cells(.rows.count, "A").end(xlup).offset(1, 0).row, _
                       .cells(.rows.count, "B").end(xlup).offset(1, 0).row, _
                       .cells(.rows.count, "C").end(xlup).offset(1, 0).row, _
                       .cells(.rows.count, "D").end(xlup).offset(1, 0).row, _
                       .cells(.rows.count, "E").end(xlup).offset(1, 0).row)
  .cells(nr, "A").paste
end with

上面的代码替换了以下代码行：

Sheets("Staff List").Select
**Range("A2:E2").Select**
ActiveSheet.Paste

在另一个数据集下添加5列数据 - Next Blank Row

1 个答案: