使用VBA基于条件匹配填充Excel指定列数据（含代码优化需求）

先说说你的现有代码存在的几个核心问题，这些会直接导致功能无法正常运行：

• P_Row和P_Clm没有初始化就直接赋值，会引发运行时错误
• 用整列A:A作为查找范围会产生大量无效循环，完全没用到UsedRange做优化
• 缺失"CONDITION 1"的判断逻辑，也没明确Sheet1/Sheet2对应哪个目标工作表
• On Error Resume Next的错误处理太粗糙，会掩盖其他潜在问题

下面是完全符合你需求的修正代码，我已经结合UsedRange减少无效循环，并且实现了条件判断和空行填充的逻辑：

Private Sub CommandButton1_Click()
    ' 定义明确的工作表对象，避免用Sheet1/Sheet2这种模糊引用
    Dim wsMaster As Worksheet
    Dim wsVisit As Worksheet
    Set wsMaster = ThisWorkbook.Worksheets("Master Data")
    Set wsVisit = ThisWorkbook.Worksheets("Project Visit")
    
    ' 获取Master Data的有效数据范围（UsedRange），只遍历有数据的行
    Dim masterDataRange As Range
    Set masterDataRange = wsMaster.UsedRange
    
    ' 定位Project Visit中"SITE # 1"所在的列（动态适配表头位置）
    Dim targetCol As Long
    On Error Resume Next
    targetCol = wsVisit.Rows(1).Find(What:="SITE # 1", LookIn:=xlValues, LookAt:=xlWhole).Column
    On Error GoTo 0
    ' 如果没找到目标表头，提示并退出
    If targetCol = 0 Then
        MsgBox "未找到表头'SITE # 1'，请检查Project Visit工作表！"
        Exit Sub
    End If
    
    ' 遍历Master Data的每一行有效数据
    Dim masterRow As Range
    For Each masterRow In masterDataRange.Rows
        ' 替换成你的实际"CONDITION 1"判断逻辑，示例为A列值等于"达标"
        If masterRow.Cells(1, "A").Value = "达标" Then ' 请根据实际条件修改
            ' 在Project Visit的目标列找到第一个空行
            Dim targetRow As Long
            targetRow = wsVisit.Cells(wsVisit.Rows.Count, targetCol).End(xlUp).Row + 1
            
            ' 将Master Data中对应的值填充到目标位置（示例Value在Master Data的B列）
            wsVisit.Cells(targetRow, targetCol).Value = masterRow.Cells(1, "B").Value ' 请根据实际列修改
        End If
    Next masterRow
    
    MsgBox "数据填充完成！"
End Sub

关键细节说明： #

• UsedRange优化：通过wsMaster.UsedRange只遍历Master Data中有实际数据的行，彻底避免整列循环的冗余操作
• 动态表头定位：用Find方法自动找到"SITE # 1"的列，不管表头在第几列都能适配
• 空行精准判断：通过End(xlUp)定位目标列最后一个有数据的行，再加1就是第一个可填充的空行
• 条件灵活调整：你需要把代码中masterRow.Cells(1, "A").Value = "达标"替换成实际的"CONDITION 1"逻辑，比如多条件组合、数值区间判断等

如果你的"CONDITION 1"或者数据所在列有特殊要求，可以随时调整代码里的对应部分。

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