Excel VBA: 将Sheet2最后200行数据复制到Sheet1第100行之后

{/'title/':/'Excel VBA: 将Sheet2最后200行数据复制到Sheet1第100行之后/',/'description/':/'使用VBA代码将Excel工作表Sheet2中的最后200行数据复制到Sheet1的第100行之后。代码会检查Sheet2是否有足够的行数，并会清理剪贴板并释放对象。/',/'keywords/':/'Excel, VBA, 复制, 数据, Sheet1, Sheet2, 最后200行, 第100行, 代码/',/'content/':/'以下是一种实现这个任务的VBA代码：//n//nvba//nSub CopyData()//n Dim ws1 As Worksheet//n Dim ws2 As Worksheet//n Dim lastRow1 As Long//n Dim lastRow2 As Long//n Dim copyRange As Range//n //n ' 设置工作表对象//n Set ws1 = ThisWorkbook.Sheets(/'Sheet1/')//n Set ws2 = ThisWorkbook.Sheets(/'Sheet2/')//n //n ' 获取Sheet1和Sheet2的最后一行//n lastRow1 = ws1.Cells(Rows.Count, 1).End(xlUp).Row//n lastRow2 = ws2.Cells(Rows.Count, 1).End(xlUp).Row//n //n ' 检查Sheet2是否有足够的行数//n If lastRow2 < 200 Then//n MsgBox /'Sheet2中的数据不足200行/'//n Exit Sub//n End If//n //n ' 设置要复制的数据范围//n Set copyRange = ws2.Range(/'A/' & lastRow2 - 199 & /':Z/' & lastRow2)//n //n ' 将数据复制到Sheet1的第100行之后//n copyRange.Copy ws1.Cells(lastRow1 + 100, 1)//n //n ' 清理剪贴板//n Application.CutCopyMode = False//n //n ' 释放对象//n Set copyRange = Nothing//n Set ws1 = Nothing//n Set ws2 = Nothing//n //n MsgBox /'数据已成功复制到Sheet1中/'//nEnd Sub//n//n//n请注意，该代码假设Sheet1和Sheet2是工作簿中的表单名称。如果你的表单名称不同，请相应地修改代码中的表单名称。//n//n此代码将复制Sheet2中的最后200行数据，从列A到列Z，然后将其粘贴到Sheet1的第100行之后。在复制和粘贴数据之后，代码还清理了剪贴板，释放了对象，并显示了一条消息框以确认操作已成功完成。/