基于单元格特征条件的Excel VBA单元格剪切粘贴代码编写求助

嘿，这个需求我刚好处理过类似的，给你整理了完整的实现方案，包括代码和关键细节说明：

要实现你的需求，需要分三步完成：

• 检查G3单元格的填充颜色是否为目标蓝色
• 验证H3单元格的特征（圆形图标）是否匹配
• 满足两个条件时，执行F3到B3的剪切粘贴操作

Sub MoveCellWhenConditionsMet()
    ' 指定目标工作表，建议替换成你的实际工作表名称
    Dim targetSheet As Worksheet
    Set targetSheet = ThisWorkbook.Worksheets("Sheet1")
    
    ' 定义目标蓝色的RGB值，可根据实际颜色调整
    Const TargetBlueColor As Long = RGB(0, 176, 240)
    Dim g3FillColor As Long
    g3FillColor = targetSheet.Range("G3").Interior.Color
    
    ' 获取H3单元格的图标索引（针对条件格式图标集的圆形）
    Dim h3IconType As XlIconIndex
    h3IconType = targetSheet.Range("H3").IconIndex
    
    ' 条件判断：G3是目标蓝色，且H3是实心圆形图标
    If g3FillColor = TargetBlueColor And h3IconType = xlIconCircleFull Then
        ' 执行剪切粘贴操作，包含格式和内容
        targetSheet.Range("F3").Cut Destination:=targetSheet.Range("B3")
        
        ' 如果只需要复制值而保留格式，可替换成下面两行：
        ' targetSheet.Range("B3").Value = targetSheet.Range("F3").Value
        ' targetSheet.Range("F3").ClearContents
    End If
End Sub

• 颜色匹配调整：如果你的G3蓝色不是代码里的RGB值，可按以下方式获取准确值：选中G3，打开VBA编辑器的「立即窗口」（快捷键Ctrl+G），输入?Range("G3").Interior.Color回车，得到的数值替换TargetBlueColor即可
• 圆形图标适配：如果H3是空心圆形，把xlIconCircleFull改成xlIconCircleEmpty；如果是其他圆形变体，同样在立即窗口输入?Range("H3").IconIndex获取对应索引值
• 工作表固定：代码里用了Sheet1，记得替换成你实际使用的工作表名称，避免切换工作表时出错
• 执行方式：把代码放到VBA模块后，可手动运行，也可以绑定到工作表按钮，或者设置成单元格变更时自动触发（需要额外写Worksheet_Change事件）

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