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

Sub CopyYellowCells()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceCell As Range
    Dim targetCell As Range
    
    ' 设置源工作表
    Set sourceSheet = ThisWorkbook.Worksheets("源工作表名称")
    
    ' 创建新的工作表
    Set targetSheet = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
    
    ' 遍历源工作表中的每个单元格
    For Each sourceCell In sourceSheet.UsedRange.Cells
        ' 检查单元格背景颜色是否为黄色
        If sourceCell.Interior.Color = RGB(255, 255, 0) Then
            ' 复制黄色突出显示的单元格的数值和格式到目标工作表
            Set targetCell = targetSheet.Cells(sourceCell.Row, sourceCell.Column)
            sourceCell.Copy targetCell
        End If
    Next sourceCell
    
    ' 可以进行进一步的处理，如格式化目标工作表中的单元格
    
    ' 调整目标工作表的列宽
    targetSheet.Columns.AutoFit
    
    ' 弹出消息框提示操作完成
    MsgBox "黄色突出显示的单元格已成功复制到新的工作表中。"
End Sub