VBA新手求助：编写宏根据AP列的"V High"匹配结果复制A列内容

嘿，作为VBA新手能想到用宏来解决这个问题真的很棒！我给你写了一个简单易上手的宏，完全匹配你的需求，还会一步步给你拆解每个部分的作用，保证你能看懂~

实现代码 #

Sub CopyVHighRows()
    Dim wsAP As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 定位到AP工作表，加个错误处理防止找不到表
    On Error Resume Next
    Set wsAP = ThisWorkbook.Worksheets("AP")
    On Error GoTo 0
    
    ' 如果找不到AP工作表，弹出提示并结束宏
    If wsAP Is Nothing Then
        MsgBox "找不到名为'AP'的工作表，请检查工作表名称是否正确！", vbExclamation
        Exit Sub
    End If
    
    ' 获取AP列有数据的最后一行，避免遍历大量空行浪费时间
    lastRow = wsAP.Cells(wsAP.Rows.Count, "AP").End(xlUp).Row
    
    ' 逐行检查AP列的值
    For i = 1 To lastRow
        ' 找到值为"V High"的行
        If wsAP.Cells(i, "AP").Value = "V High" Then
            ' 复制对应行A列的内容
            ' 👇 这里默认是复制到剪贴板，你可以改成指定目标位置，比如粘贴到汇总表
            ' 示例：wsAP.Cells(i, "A").Copy Destination:=ThisWorkbook.Worksheets("汇总").Cells(汇总表最后一行+1, "A")
            wsAP.Cells(i, "A").Copy
        End If
    Next i
    
    MsgBox "已完成所有'V High'对应行A列内容的复制！", vbInformation
End Sub

代码说明 #

• 工作表定位：先找到名为AP的工作表，加了错误处理，避免因为工作表名写错导致宏崩溃
• 获取最后一行：通过End(xlUp)找到AP列有数据的最后一行，这样不会遍历空行，提升宏的运行效率
• 循环检查：逐行遍历AP列，判断单元格值是否为V High
• 复制操作：默认复制到剪贴板，你也可以注释掉这行，改用下面的Destination写法，直接粘贴到你指定的位置（比如汇总工作表的某一列）

使用步骤 #

1. 打开你的风险记录工作簿，按下Alt + F11打开VBA编辑器
2. 在左侧的工程窗口里，右键点击你的工作簿名称，选择「插入」→「模块」
3. 把上面的代码粘贴到新建的模块里
4. 回到Excel，按下Alt + F8，选择CopyVHighRows宏，点击「执行」就可以啦

如果需要调整复制的目标位置，比如要直接粘贴到「汇总」工作表的A列末尾，可以修改代码里的复制部分：

' 先获取汇总表A列的最后一行
Dim wsSummary As Worksheet
Set wsSummary = ThisWorkbook.Worksheets("汇总")
Dim summaryLastRow As Long
summaryLastRow = wsSummary.Cells(wsSummary.Rows.Count, "A").End(xlUp).Row + 1 ' +1是粘贴到下一行

' 复制并粘贴到汇总表
wsAP.Cells(i, "A").Copy Destination:=wsSummary.Cells(summaryLastRow, "A")

这样就能直接把符合条件的A列内容批量粘贴到汇总表啦！

内容的提问来源于stack exchange，提问作者Adam.W