VBA代码修改需求：整行数据复制、多工作表匹配及匹配行着色

嘿，作为VBA新手能写出这样的基础代码已经很棒啦！针对你提出的三个需求，我重新优化了代码——用更高效的Find方法替代VLOOKUP公式，既实现了整行复制、多工作表匹配，还加上了匹配行着色的功能，代码里加了详细注释方便你理解：

Sub Solution_Updated()
    Dim wbInput As Workbook
    Dim wbOutput As Workbook
    Dim wsInput As Worksheet
    Dim wsOutput As Worksheet
    Dim lastRowInput As Long
    Dim lastRowOutput As Long
    Dim i As Long
    Dim matchRow As Range
    ' 定义输出工作簿中需要匹配的4个工作表名称，可根据实际修改
    Dim outputSheetNames As Variant
    outputSheetNames = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4")
    
    ' 关闭屏幕刷新，提升运行速度
    Application.ScreenUpdating = False
    
    ' 绑定工作簿和主输入工作表
    Set wbInput = Workbooks("input")
    Set wsInput = wbInput.Worksheets("input")
    Set wbOutput = Workbooks("output1")
    
    ' 获取输入工作表的最后一行数据
    lastRowInput = wsInput.Cells(wsInput.Rows.Count, 1).End(xlUp).Row
    
    ' 循环遍历输出工作簿中的4个目标工作表
    For Each sheetName In outputSheetNames
        Set wsOutput = wbOutput.Worksheets(sheetName)
        ' 获取当前输出工作表的最后一行数据
        lastRowOutput = wsOutput.Cells(wsOutput.Rows.Count, 1).End(xlUp).Row
        
        ' 遍历输出工作表的每一行，匹配输入工作表的数据
        For i = 1 To lastRowOutput
            ' 在输入工作表的第一列查找当前输出行的匹配值
            Set matchRow = wsInput.Columns(1).Find(What:=wsOutput.Cells(i, 1).Value, _
                                                  LookIn:=xlValues, LookAt:=xlWhole)
            
            If Not matchRow Is Nothing Then
                ' 1. 复制匹配到的整行数据到输出工作表对应行
                matchRow.EntireRow.Copy Destination:=wsOutput.Cells(i, 1)
                ' 3. 给输入工作表中匹配成功的行着色（浅绿色）
                matchRow.EntireRow.Interior.Color = vbLightGreen
            Else
                ' 可选：如果需要给未匹配的行标记，可在这里添加代码
                ' wsOutput.Cells(i, 1).Interior.Color = vbYellow
            End If
        Next i
    Next sheetName
    
    ' 清理剪贴板，恢复屏幕刷新
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    MsgBox "匹配复制完成！"
End Sub

关键修改说明： #

• 整行数据复制：放弃了原有的VLOOKUP公式，改用Find方法直接定位匹配行，通过EntireRow.Copy一次性复制整行数据，比公式批量填充更高效，也避免了多列公式的繁琐。
• 多工作表扫描：用Array定义了需要处理的4个输出工作表名称，通过For Each循环逐个处理每个工作表，你可以根据实际情况修改数组里的工作表名。
• 匹配行着色：每次找到匹配行后，用Interior.Color = vbLightGreen给输入工作表的对应行设置浅绿色填充，一眼就能区分已匹配的行；如果需要标记输出工作表的未匹配行，也可以打开注释里的代码。

注意事项： #

1. 确保输入工作簿名称是input、输出工作簿是output1，且两个工作簿都处于打开状态。
2. 如果你的输出工作表名称不是示例里的Sheet1-Sheet4，记得修改outputSheetNames数组里的内容。
3. 如果数据量很大，Find方法比公式法的运行速度会快很多，而且更稳定。

内容的提问来源于stack exchange，提问作者DesTro