如何通过Excel宏复制含“PV”文本的指定单元格至其他工作表？

以下是针对需求的VBA宏，可筛选F列和L列中从第19行开始、内容以“PV”开头的单元格，并将数据复制到新工作表：

Sub CopyPVData()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim lastRowF As Long, lastRowL As Long
    Dim cell As Range
    Dim targetRow As Long
    
    ' 设置源工作表（可根据实际修改表名）
    Set wsSource = ThisWorkbook.ActiveSheet
    ' 创建或选择目标工作表
    On Error Resume Next
    Set wsTarget = ThisWorkbook.Worksheets("PV数据库")
    On Error GoTo 0
    If wsTarget Is Nothing Then
        Set wsTarget = ThisWorkbook.Worksheets.Add
        wsTarget.Name = "PV数据库"
    End If
    
    ' 初始化目标行起始位置
    targetRow = 1
    ' 写入表头（如果需要）
    wsTarget.Cells(targetRow, 1).Value = "F列PV数据"
    wsTarget.Cells(targetRow, 2).Value = "L列PV数据"
    targetRow = targetRow + 1
    
    ' 获取F列和L列的最后一行行号
    lastRowF = wsSource.Cells(wsSource.Rows.Count, "F").End(xlUp).Row
    lastRowL = wsSource.Cells(wsSource.Rows.Count, "L").End(xlUp).Row
    
    ' 遍历F列从19行到最后一行
    For Each cell In wsSource.Range("F19:F" & lastRowF)
        If Not IsEmpty(cell.Value) And Left(Trim(cell.Value), 2) = "PV" Then
            wsTarget.Cells(targetRow, 1).Value = cell.Value
            ' 同步复制对应行的L列数据（如果需要）
            ' wsTarget.Cells(targetRow, 2).Value = wsSource.Cells(cell.Row, "L").Value
            targetRow = targetRow + 1
        End If
    Next cell
    
    ' 遍历L列从19行到最后一行
    For Each cell In wsSource.Range("L19:L" & lastRowL)
        If Not IsEmpty(cell.Value) And Left(Trim(cell.Value), 2) = "PV" Then
            wsTarget.Cells(targetRow, 2).Value = cell.Value
            ' 同步复制对应行的F列数据（如果需要）
            ' wsTarget.Cells(targetRow, 1).Value = wsSource.Cells(cell.Row, "F").Value
            targetRow = targetRow + 1
        End If
    Next cell
    
    ' 自动调整目标表列宽
    wsTarget.Columns("A:B").AutoFit
    MsgBox "PV数据已复制完成！", vbInformation
End Sub

关键说明： #

• 判断逻辑：用Left(Trim(cell.Value), 2) = "PV"确保单元格内容去除空格后以“PV”开头，同时判断Not IsEmpty(cell.Value)避免空单元格干扰。
• 目标表处理：自动创建名为“PV数据库”的工作表，若已存在则直接使用。
• 灵活调整：代码中注释部分可按需开启，实现F列和L列数据的同步对应复制。
• 范围确定：用End(xlUp)获取列的最后一行，避免遍历无效空行。

如果需要和你之前的「选取黄色单元格」宏整合，可以将颜色判断和文本判断逻辑合并到同一个循环中，同时收集符合条件的单元格。

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