excelvba 自动复制的新数据如何不覆盖最后一行

Question

我 是要把其它表里的数据复制到另一个sheet中的最底部，但是用这个代码每次总是把原数据的最后一行数据给覆盖了，如何从第一个空行开始粘数据？谢谢

If WorksheetFunction.CountA(sht.[e:e]) > 0 Then

sht.[a2].Resize(sht.Cells(Rows.Count, 1).End(xlUp).Row,
Columns.Count).Copy ActiveSheet.Cells(Rows.Count,
1).End(xlUp).Offset(-Len([a1]) > 0, 0)

End If

Answer 1

改一下最后的代码
Offset(-Len([a1]) > 0, 0)
改为Offset(IIF(Len([a1]) > 0,1,0), 0)