将数据值从一个excel复制并粘贴到另一个excel到下一个空行
我需要从一个Excel文件复制一组数据到另一个Excel文件。
当粘贴我也需要将它们粘贴到所需列中的下一个空行。
有没有这个过程的任何macros编码，请帮助我
如果我正确理解你的问题，你需要做的是：
- 然后确定复印工作表中使用的最后一行
- 从原始复制到那一行+ 1。
像这样的东西应该足够了，尽pipe它很快而且很脏。 另外，我已经使它更“详细”（因此效率更低），而不是试图使过程更清晰。 （你并不是真的需要我已经声明的所有variables，但是我已经把它们放在了逻辑上更加透明。）
Sub PasteToFollowingRow() Dim wks As Excel.Worksheet Dim rng_Source As Excel.Range Dim rng_NextRowDown As Excel.Range Dim l_LastRow As Long, l_LastColumn As Long Set wks = ThisWorkbook.Worksheets("generation_copy") l_LastRow = wks.UsedRange.Rows.Count l_LastColumn = wks.UsedRange.Columns.Count 'Assumes that you'll never copy just one cell... If (l_LastRow = 1 And l_LastColumn = 1) Then Set rng_NextRowDown = wks.Cells(1, 1) Else Set rng_NextRowDown = wks.Cells(l_LastRow + 1, 1) End If Set rng_Source = ThisWorkbook.Worksheets("generation").UsedRange rng_Source.Copy rng_NextRowDown ExitPoint: On Error Resume Next Set rng_NextRowDown = Nothing Set rng_Source = Nothing Set wks = Nothing On Error Goto 0 Exit Sub ErrorHandler: MsgBox "Error " & Err.Number & vbCrLf & Err.Description Resume ExitPoint End Sub