Excel 怎么返回单元格颜色名称

Question

如题所述

Answer 1

Sub text()

Dim arr, i%, d, j

Dim brr()

Set d = CreateObject("scripting.dictionary")

arr = Sheet3.Range("A1").CurrentRegion

For i = 1 To UBound(arr)

j = Sheet3.Cells(i, 1).Interior.ColorIndex

d(j) = arr(i, 2)

Next

For i = 1 To 56

ReDim Preserve brr(i - 1)

j = Cells(i, 1).Interior.ColorIndex

brr(i - 1) = d(j)

Next

Range("B1").Resize(56, 1) = Application.Transpose(brr)

End Sub

可以使用如下代码完成

Answer 2

用=GET.CELL(63,INDIRECT("rc",FALSE))试试、。