Excel VBA组合生成器无法跳过空单元格问题求助

问题根源 #

原代码的空值判断逻辑存在坐标匹配错误：
你定义的第一列数据源xDRg1 = Range("A2:A6")是从A2行开始的，但判断空值用的Cells(xFN1, "A")是取工作表A列第xFN1行，xFN1从1开始时实际取的是A1单元格，和你遍历的xDRg1.Item(xFN1)（对应A2单元格）完全不匹配，导致空值判断完全失效。
同时原代码变量声明存在不规范问题：VBA一行声明多个变量时，每个变量都要单独指定类型，原代码Dim xDRg1, xDRg2, xDRg3 As Range实际只有xDRg3是Range类型，前两个是Variant类型，容易引发未知错误。

最小修改方案（适配现有多列组合场景） #

修改后的完整代码如下，可直接使用：

Sub CombinationGenerator()

Dim xDRg1 As Range, xDRg2 As Range, xDRg3 As Range
Dim xRg  As Range
Dim xStr As String
Dim xFN1 As Integer, xFN2 As Integer, xFN3 As Integer
Dim xSV1 As String, xSV2 As String, xSV3 As String
Set xDRg1 = Range("A2:A6")  '第一列数据
Set xDRg2 = Range("B2:B4")  '第二列数据，测试场景为a/b/c三个值，可按需调整范围
Set xDRg3 = Range("C2:C2")  '第三列数据，无数据可保持当前范围
xStr = "-"   '分隔符
Set xRg = Range("E2")  '输出起始单元格

'生成组合
For xFN1 = 1 To xDRg1.Count
    '修正：直接判断当前遍历的第一列单元格是否为空
    If xDRg1.Item(xFN1).Text <> "" Then
        xSV1 = xDRg1.Item(xFN1).Text
        For xFN2 = 1 To xDRg2.Count
            '若需要第二列也跳过空值，可取消下一行注释
            'If xDRg2.Item(xFN2).Text <> "" Then
            xSV2 = xDRg2.Item(xFN2).Text
            For xFN3 = 1 To xDRg3.Count
                '若需要第三列也跳过空值，可取消下一行注释
                'If xDRg3.Item(xFN3).Text <> "" Then
                xSV3 = xDRg3.Item(xFN3).Text
                '无值列自动隐藏分隔符，避免多余符号
                If xSV3 = "" Then
                    xRg.Value = xSV1 & xStr & xSV2
                Else
                    xRg.Value = xSV1 & xStr & xSV2 & xStr & xSV3
                End If
                Set xRg = xRg.Offset(1, 0)
            Next
        Next
    End If
Next
End Sub

适配说明 #

按照你的测试场景调整xDRg2范围后运行，即可输出1-a、1-b、1-c、3-a、3-b、3-c共6条符合预期的结果，不会再生成前缀为空的无效组合。后续如果要扩展更多列，只需要参考现有逻辑新增对应列的遍历和空值判断即可。

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