如何按规则将特定单元格转为数组？单公式提取符合条件单元格至数组

嘿，针对你提出的两个问题，我来给你梳理下可行的解决方案——尤其是你关心的「单个公式提取符合条件的单元格数组」需求，其实有两种靠谱的路径：

一、单个公式实现：提取某一行绿色底色、含数字且非0的单元格数组 #

Excel内置函数没法直接读取单元格填充色，所以得结合自定义函数或者宏表函数来实现：

方法1：自定义VBA函数（推荐，灵活可控） #

这是最稳定的方案，能精准匹配你的需求，步骤也不复杂：

1. 按Alt + F11打开VBA编辑器，右键你的工作簿→「插入」→「模块」
2. 粘贴下面的代码：

Function GetGreenNonZeroCells(rng As Range) As Variant
    Dim cell As Range
    Dim result() As Variant
    Dim count As Integer
    count = 0
    
    ' 遍历目标区域的每个单元格
    For Each cell In rng
        ' 判断条件：填充色为绿色（这里用标准绿RGB(0,255,0)，如果你的绿是其他色号，替换成对应值）
        ' 同时单元格是数字且不等于0
        If cell.Interior.Color = RGB(0, 255, 0) And IsNumeric(cell.Value) And cell.Value <> 0 Then
            count = count + 1
            ReDim Preserve result(1 To count)
            ' 存储单元格的相对引用（如果要绝对引用，把False改成True）
            result(count) = cell.Address(False, False)
        End If
    Next cell
    
    ' 返回数组，无符合条件则返回空数组
    If count > 0 Then
        GetGreenNonZeroCells = result
    Else
        GetGreenNonZeroCells = Array()
    End If
End Function

3. 保存工作簿为.xlsm格式（因为包含宏，普通.xlsx会丢失宏）

接下来用这个函数：比如要提取第1行A到Z列的符合条件单元格，在AO1输入：
=TRANSPOSE(GetGreenNonZeroCells(A1:Z1))
按Enter后，Excel 365/2021会自动把结果溢出到右侧单元格（就像你示例里AO1=647、AP1=2806的效果）。

小提示：如果你的绿色不是标准绿，选中绿色单元格，在VBA编辑器的「立即窗口」输入?ActiveCell.Interior.Color，把得到的数值替换代码里的RGB(0,255,0)即可。

方法2：宏表函数（无需VBA，但兼容性有限） #

不想写代码的话，可以用Excel隐藏的宏表函数配合动态数组实现：

1. 点击「公式」选项卡→「定义名称」，名称设为CellColor，引用位置输入：
   =GET.CELL(63,Sheet1!A1)
   （63代表返回填充色索引，Sheet1换成你的工作表名，A1是目标区域起始单元格）
2. 在空白列（比如BA列）的BA1输入=CellColor，下拉填充到目标行，BA列会显示对应单元格的颜色索引（绿色通常是10，先测试确认）
3. 在AO1输入公式：
   =TRANSPOSE(FILTER(A1:Z1, (CellColor=10)*(ISNUMBER(A1:Z1))*(A1:Z1<>0)))
   这个公式会筛选出符合条件的单元格，转置后横向溢出到右侧。

注意：宏表函数不会自动更新，当单元格颜色变化时，需要按F9手动刷新。

二、按规则将特定单元格转为数组的通用思路 #

其实上面的方法已经覆盖了这个需求——核心是先筛选符合规则的单元格，再将其转为数组：

• 如果规则是文本匹配，把条件改成ISNUMBER(SEARCH("关键词", cell.Value))（VBA）或者ISNUMBER(SEARCH("关键词", A1:Z1))（公式）
• 如果规则是格式（比如加粗、字体颜色），调整VBA里的cell.Font.Bold或者宏表函数的参数（比如GET.CELL(20)返回字体颜色）

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