Excel动态生成带排除项的数字范围并拼接显示

针对需求——通过B列的存在性标记（1=存在，0=不存在），从A列的1-10数字中排除标记为0的项，生成连续数字范围的拼接字符串（如Range 1-3,5-10），以下提供两种可行实现方案：

方案一：纯Excel公式实现 #

利用FILTER、TEXTJOIN及逻辑判断函数组合，直接在单元格生成结果，无需宏：

="Range "&TEXTJOIN(",",TRUE,
    LET(
        existNums,FILTER(A1:A10,B1:B10=1),
        lenNums,ROWS(existNums),
        startFlags,IF(ROW(existNums)=1,TRUE,existNums-OFFSET(existNums,-1,0)<>1),
        endFlags,IF(ROW(existNums)=lenNums,TRUE,OFFSET(existNums,1,0)-existNums<>1),
        rangeTexts,IF(startFlags,existNums&IF(endFlags,"","-"),"")&IF(endFlags,IF(startFlags,"",existNums),"")
    )
)

公式逻辑说明： #

1. FILTER(A1:A10,B1:B10=1)：筛选出所有B列为1对应的A列数字
2. startFlags：标记每个数字是否为连续区间的起始（当前数字与前一个数字不连续，或为第一个数字）
3. endFlags：标记每个数字是否为连续区间的结束（当前数字与后一个数字不连续，或为最后一个数字）
4. rangeTexts：根据起始/结束标记生成区间文本（如起始+结束则生成x-y，单独数字则生成x）
5. TEXTJOIN：将所有区间文本用逗号拼接，最终加上前缀Range

方案二：VBA自定义函数实现 #

如果需要更灵活的扩展（比如处理更大范围的数字），可以编写自定义函数：

1. 按Alt+F11打开VBA编辑器，插入新模块，粘贴以下代码：

Function GetNumberRange(numRange As Range, existRange As Range) As String
    Dim existNums As Collection
    Set existNums = New Collection
    
    ' 收集所有标记为存在的数字
    For i = 1 To numRange.Cells.Count
        If existRange.Cells(i).Value = 1 Then
            existNums.Add numRange.Cells(i).Value
        End If
    Next i
    
    ' 处理无有效数字的情况
    If existNums.Count = 0 Then
        GetNumberRange = "Range None"
        Exit Function
    End If
    
    Dim rangeStr As String
    Dim startNum As Integer, endNum As Integer
    startNum = existNums(1)
    endNum = existNums(1)
    
    ' 遍历生成连续区间
    For i = 2 To existNums.Count
        If existNums(i) = endNum + 1 Then
            endNum = existNums(i)
        Else
            rangeStr = rangeStr & startNum & IIf(startNum = endNum, "", "-" & endNum) & ","
            startNum = existNums(i)
            endNum = existNums(i)
        End If
    Next i
    ' 添加最后一个区间
    rangeStr = rangeStr & startNum & IIf(startNum = endNum, "", "-" & endNum)
    
    GetNumberRange = "Range " & rangeStr
End Function

2. 返回Excel工作表，在任意单元格输入公式即可调用：

=GetNumberRange(A1:A10,B1:B10)

验证示例： #

• 当B4=0时，返回结果：Range 1-3,5-10
• 当B4=1、B7=0时，返回结果：Range 1-6,8-10

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