在新的WorkSheet VBA中复制/粘贴黄色突出显示的单元格

Sub CopyYellowCells()
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim cell As Range
    Dim targetRow As Long

    ' 设置源工作表和目标工作表（请在下面两行代码中修改工作表名称）
    Set wsSource = ThisWorkbook.Worksheets("Sheet1")
    Set wsTarget = ThisWorkbook.Worksheets("Sheet2")

    ' 初始化目标工作表的行号
    targetRow = 1

    ' 遍历源工作表的每一个单元格
    For Each cell In wsSource.UsedRange
        ' 检查单元格背景色是否为黄色（颜色索引为6）
        If cell.Interior.ColorIndex = 6 Then
            ' 复制黄色单元格的内容到目标工作表
            wsTarget.Cells(targetRow, cell.Column).Value = cell.Value

            ' 如果需要复制格式，可以使用下面的代码
            ' cell.Copy Destination:=wsTarget.Cells(targetRow, cell.Column)

            ' 更新目标工作表的行号
            targetRow = targetRow + 1
        End If
    Next cell

    MsgBox "黄色单元格复制完成！"
End Sub