使用vba在excle中写这个代码，查找sheet1中A列姓名是否在于sheet2中A列姓名，如果存在将sheet2中的整行复制到sheet3中。...

最新推荐文章于 2024-02-26 11:45:33 发布

weixin_42601702

最新推荐文章于 2024-02-26 11:45:33 发布

阅读量249

点赞数

本文链接：https://blog.csdn.net/weixin_42601702/article/details/129602623

版权

下面是在 VBA 中写出查找并复制的代码：

Sub CopyRows()
    Dim i As Long, lastRow1 As Long, lastRow2 As Long
    Dim name1 As String, name2 As String
    
    ' 获取 sheet1 和 sheet2 中的最后一行
    lastRow1 = Sheet1.Range("A" &amp; Rows.Count).End(xlUp).Row
    lastRow2 = Sheet2.Range("A" &amp; Rows.Count).End(xlUp).Row