Excel VBA技术问题：根据其他单元格颜色设置当前单元格颜色

首先，你的代码无法生效的核心原因是Excel的用户定义函数（UDF）有严格限制：当你在单元格公式中调用UDF时，它只能返回一个值到该单元格，不能修改任何单元格的格式（包括填充颜色），也不能操作其他单元格的属性。所以你在UDF里修改ActiveCell.Interior.ThemeColor的操作，Excel会直接忽略。

另外，原代码里的If Not Target.Interior.Color Is Nothing判断也是错误的——Interior.Color返回的是一个Long类型的颜色数值，永远不会等于Nothing，正确的判断应该是检查单元格是否有非默认填充色，比如If Target.Interior.ColorIndex <> xlColorIndexNone。

下面给你两种实用的解决方案：

方案一：手动触发批量同步颜色（适合一次性或定期更新） #

写一个普通的VBA过程，通过按钮触发来批量复制C列颜色到A列对应行：

Sub SyncColumnColors()
    Dim targetSheet As Worksheet
    ' 指定要操作的工作表，替换成你的工作表名称
    Set targetSheet = ThisWorkbook.Worksheets("Sheet1")
    
    Dim lastRow As Long
    ' 获取C列最后一行有数据的行号
    lastRow = targetSheet.Cells(targetSheet.Rows.Count, "C").End(xlUp).Row
    
    Dim rowNum As Long
    For rowNum = 1 To lastRow
        ' 复制C列当前行的颜色到A列对应行
        targetSheet.Cells(rowNum, "A").Interior.Color = targetSheet.Cells(rowNum, "C").Interior.Color
    Next rowNum
End Sub

使用方法： #

1. 按下Alt + F11打开VBA编辑器
2. 在对应工作表的模块中粘贴上述代码
3. 返回Excel界面，点击「开发工具」→「插入」→「按钮（窗体控件）」，绘制按钮后选择SyncColumnColors宏
4. 以后只需点击这个按钮，就能一次性同步所有行的颜色

方案二：自动同步颜色（适配值/条件格式触发的颜色变化） #

如果你的C列颜色变化是由单元格值修改或条件格式触发的，可以用Worksheet_Calculate事件实现自动同步：

Private Sub Worksheet_Calculate()
    Dim targetCell As Range
    ' 遍历C列已使用的单元格
    For Each targetCell In Me.Range("C1:C" & Me.Cells(Me.Rows.Count, "C").End(xlUp).Row)
        ' 同步到对应A列单元格
        Me.Cells(targetCell.Row, "A").Interior.Color = targetCell.Interior.Color
    Next targetCell
End Sub

使用方法： #

1. 打开VBA编辑器，双击左侧工程窗口中的目标工作表（比如Sheet1）
2. 在右侧代码窗口粘贴上述代码
3. 当工作表重新计算时（比如修改单元格值触发条件格式变色），A列会自动同步C列的颜色

单个单元格快速同步 #

如果你只需要同步单个单元格（比如A1同步C1），可以用这个极简宏：

Sub SyncA1FromC1()
    ThisWorkbook.Worksheets("Sheet1").Range("A1").Interior.Color = ThisWorkbook.Worksheets("Sheet1").Range("C1").Interior.Color
End Sub

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