通过Excel宏标识单元格的内容并复制相应的值

Sub 标识并复制值()
    Dim rng As Range
    Dim cell As Range
    
    ' 设置要标识的单元格范围
    Set rng = Range("A1:A10")
    
    ' 遍历每个单元格
    For Each cell In rng
        ' 根据单元格的内容进行标识并复制相应的值
        Select Case cell.Value
            Case "标识1"
                cell.Interior.Color = RGB(255, 0, 0) ' 设置单元格背景色为红色
                cell.Copy ' 复制单元格的值
            Case "标识2"
                cell.Interior.Color = RGB(0, 255, 0) ' 设置单元格背景色为绿色
                cell.Copy ' 复制单元格的值
            Case "标识3"
                cell.Interior.Color = RGB(0, 0, 255) ' 设置单元格背景色为蓝色
                cell.Copy ' 复制单元格的值
            Case Else
                ' 其他情况不进行标识和复制操作
        End Select
    Next cell
End Sub