如何将其他工作表单元格颜色复制到活动工作表？含INDIRECT函数相关疑问

核心结论 #

INDIRECT函数无法复制单元格颜色——它仅能返回单元格的数值/文本内容，不支持格式（如填充色、字体色）的读取或复制。要实现颜色复制，必须借助VBA代码。

具体实现方案 #

1. 单步手动指定（替代输入框方式） #

如果需要逐个处理工作表，可使用以下VBA代码，直接输入工作表名、源单元格地址和目标单元格地址：

Sub CopySingleCellColor()
    Dim sourceSheetName As String
    Dim sourceCellAddr As String
    Dim targetCellAddr As String
    
    ' 获取用户输入的参数
    sourceSheetName = InputBox("输入源工作表名称：")
    sourceCellAddr = InputBox("输入源单元格地址（如$B$1）：")
    targetCellAddr = InputBox("输入活动工作表目标单元格地址：")
    
    ' 复制单元格填充色
    ThisWorkbook.ActiveSheet.Range(targetCellAddr).Interior.Color = _
        ThisWorkbook.Sheets(sourceSheetName).Range(sourceCellAddr).Interior.Color
        
    ' 如需复制字体颜色，取消下方注释
    ' ThisWorkbook.ActiveSheet.Range(targetCellAddr).Font.Color = _
    '     ThisWorkbook.Sheets(sourceSheetName).Range(sourceCellAddr).Font.Color
End Sub

2. 批量处理（结合工作表名变量+VLOOKUP结果） #

若你已经通过VLOOKUP+INDIRECT得到了源单元格地址，可将10个工作表的信息整理到活动工作表中（比如A列存工作表名，B列存源单元格地址，C列存目标单元格地址），用以下代码批量复制：

Sub BatchCopyCellColors()
    Dim activeWs As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim sourceWs As Worksheet
    Dim sourceCell As Range
    Dim targetCell As Range
    
    Set activeWs = ThisWorkbook.ActiveSheet
    lastRow = activeWs.Cells(activeWs.Rows.Count, "A").End(xlUp).Row ' 获取A列最后一行数据
    
    ' 循环处理每一行的工作表信息
    For i = 2 To lastRow ' 假设第1行是表头，从第2行开始处理
        ' 将工作表名设为变量
        Dim sheetName As String
        sheetName = activeWs.Cells(i, "A").Value
        
        ' 获取源单元格和目标单元格地址
        Dim sourceAddr As String
        sourceAddr = activeWs.Cells(i, "B").Value
        Dim targetAddr As String
        targetAddr = activeWs.Cells(i, "C").Value
        
        ' 错误处理：避免因工作表不存在导致代码崩溃
        On Error Resume Next
        Set sourceWs = ThisWorkbook.Sheets(sheetName)
        If Not sourceWs Is Nothing Then
            ' 复制填充色
            activeWs.Range(targetAddr).Interior.Color = sourceWs.Range(sourceAddr).Interior.Color
            ' 复制字体色取消下方注释
            ' activeWs.Range(targetAddr).Font.Color = sourceWs.Range(sourceAddr).Font.Color
        End If
        On Error GoTo 0
    Next i
End Sub

使用说明 #

1. 打开Excel，按Alt + F11打开VBA编辑器；
2. 插入模块（右键工作簿→插入→模块）；
3. 将上述代码粘贴到模块中；
4. 回到Excel，按Alt + F8选择对应的宏运行即可。

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