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

在新的WorkSheet VBA中复制/粘贴黄色突出显示的单元格，可以通过以下步骤实现：

遍历源工作表中的每个单元格，检查其背景颜色是否为黄色。
将黄色突出显示的单元格的数值、格式或其他属性复制到一个变量中，以便在新的工作表中粘贴。
创建一个新的工作表。
将复制的内容粘贴到新的工作表中，可以选择保留格式或仅粘贴数值。
可以进一步处理粘贴后的单元格，如应用特定的格式或其他操作。

下面是使用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

请注意，以上代码中的"源工作表名称"应替换为实际的源工作表名称。执行该宏后，将创建一个新的工作表，并在其中复制黄色突出显示的单元格的内容。

推荐的腾讯云相关产品和产品介绍链接地址：

云服务器（CVM）：提供高性能、可扩展的云服务器实例，适用于各种应用场景。详细信息请参考：https://cloud.tencent.com/product/cvm
云数据库 MySQL 版：提供高可用、高性能的 MySQL 数据库服务，适用于各种业务场景。详细信息请参考：https://cloud.tencent.com/product/cdb_mysql
人工智能机器学习平台（AI Lab）：提供开发和训练机器学习模型的平台，帮助用户实现智能化业务。详细信息请参考：https://cloud.tencent.com/product/ai_lab