VBA - 写入4列数据的所有可能组合[重复]

使用VBA编程语言，我们可以轻松地生成一系列包含重复的四列数据的所有可能组合。这种方法非常适用于需要生成测试数据或进行数据分析的情况。在本文中，我们将探讨如何使用VBA编写代码来实现这一目标，并提供一个案例代码来演示其用法。

vba
Sub GenerateCombinations()
    Dim dataRange As Range
    Dim combinationRange As Range
    Dim i As Long, j As Long, k As Long, l As Long
    Dim rowCount As Long
    
    ' 设置数据范围
    Set dataRange = Range("A1:D4")
    
    ' 计算组合总数
    rowCount = dataRange.Rows.Count ^ 4
    
    ' 设置组合数据范围
    Set combinationRange = Range("F1:I" & rowCount)
    
    ' 清空组合数据范围
    combinationRange.ClearContents
    
    ' 生成组合
    For i = 1 To dataRange.Rows.Count
        For j = 1 To dataRange.Rows.Count
            For k = 1 To dataRange.Rows.Count
                For l = 1 To dataRange.Rows.Count
                    combinationRange((i - 1) * dataRange.Rows.Count ^ 3 + (j - 1) * dataRange.Rows.Count ^ 2 + (k - 1) * dataRange.Rows.Count + l).Value = _
                        dataRange.Cells(i, 1).Value & ", " & dataRange.Cells(j, 2).Value & ", " & dataRange.Cells(k, 3).Value & ", " & dataRange.Cells(l, 4).Value
                Next l
            Next k
        Next j
    Next i
End Sub