通过VBA从Excel中的主范围查找范围子集组合

Sub FindSubsetCombinations()
    Dim mainRange As Range
    Dim subsetRange As Range
    Dim cell As Range
    Dim combination As String
    
    ' 设置主范围
    Set mainRange = Range("A1:D4")
    
    ' 遍历主范围中的每个单元格
    For Each cell In mainRange
        ' 生成当前单元格作为起始单元格的范围子集组合
        For Each subsetRange In mainRange.Range(cell, mainRange.Cells(mainRange.Rows.Count, mainRange.Columns.Count))
            ' 将范围子集组合转换为字符串
            combination = subsetRange.Address
            ' 在这里可以对范围子集组合进行进一步处理，例如输出到另一个单元格或执行其他操作
            ' ...
            ' 输出范围子集组合
            Debug.Print combination
        Next subsetRange
    Next cell
End Sub