将Sell列高亮的整行复制到其他工作表，未高亮值设为空

需求明确 #

• 仅处理Sell列单元格被高亮标记的整行数据
• Sell列未高亮的行不执行任何操作
• 复制到目标工作表后，原行中未被高亮的单元格值需清空

解决方案（VBA宏实现） #

直接运行以下VBA代码即可完成需求，可根据实际工作表结构调整参数：

Sub CopyHighlightedRows()
    Dim srcSheet As Worksheet, destSheet As Worksheet
    Dim lastRow As Long, destRow As Long
    Dim i As Integer, j As Integer
    
    ' 替换为你的源表和目标表名称
    Set srcSheet = ThisWorkbook.Worksheets("源表")
    Set destSheet = ThisWorkbook.Worksheets("目标表")
    
    destRow = 2 ' 目标表起始写入行（跳过表头）
    lastRow = srcSheet.Cells(srcSheet.Rows.Count, "A").End(xlUp).Row ' 获取源表数据最后一行
    
    ' 遍历源表数据行
    For i = 2 To lastRow
        ' 判断Sell列（示例为D列，可修改为实际列标识）是否高亮
        If srcSheet.Cells(i, "D").Interior.ColorIndex <> xlColorIndexNone Then
            ' 遍历当前行所有单元格
            For j = 1 To srcSheet.UsedRange.Columns.Count
                If srcSheet.Cells(i, j).Interior.ColorIndex <> xlColorIndexNone Then
                    destSheet.Cells(destRow, j).Value = srcSheet.Cells(i, j).Value
                Else
                    destSheet.Cells(destRow, j).Value = ""
                End If
            Next j
            destRow = destRow + 1
        End If
    Next i
    
    MsgBox "操作完成！", vbInformation
End Sub

参数调整说明 #

1. 工作表名称：将代码中的"源表"和"目标表"替换为你实际使用的工作表名称
2. Sell列位置：如果Sell列不是D列，修改Cells(i, "D")中的列标识（比如"C"对应C列，或用数字3表示第3列）
3. 起始行：如果源表或目标表的表头不在第1行，调整For i = 2 To lastRow和destRow = 2中的数字为实际起始行号

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