请求编写VBA代码实现表格与多维度数据的全组合生成

你需要把现有表格的每一行数据，和爱好、团队的所有可能组合进行拼接，生成包含全部12种组合的完整表格，以下是实现代码和步骤：

实现思路 #

• 用数组存储所有爱好和团队的可选值
• 获取原表格的数据源范围
• 创建新工作表（或复用已有工作表）存放结果
• 遍历原表格每一行数据，嵌套遍历爱好与团队的所有组合，将拼接后的行数据写入输出区域

完整VBA代码 #

Sub GenerateFullCombinations()
    ' 定义爱好和团队数组
    Dim hobbies As Variant
    hobbies = Array("sleep", "run", "play")
    
    Dim teams As Variant
    teams = Array("red", "blue")
    
    ' 获取原表格数据（假设原数据在Sheet1的A1:B列，包含表头）
    Dim sourceSheet As Worksheet
    Set sourceSheet = ThisWorkbook.Sheets("Sheet1")
    Dim sourceData As Range
    Set sourceData = sourceSheet.Range("A1:B" & sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row)
    
    ' 创建/复用结果工作表
    Dim outputSheet As Worksheet
    On Error Resume Next
    Set outputSheet = ThisWorkbook.Sheets("FullCombinations")
    If Err.Number <> 0 Then
        Set outputSheet = ThisWorkbook.Sheets.Add(After:=sourceSheet)
        outputSheet.Name = "FullCombinations"
    End If
    On Error GoTo 0
    
    ' 写入结果表头
    outputSheet.Range("A1:D1").Value = Array("Country", "Gender", "Hobby", "Team")
    
    ' 初始化输出行号
    Dim outputRow As Integer
    outputRow = 2
    
    ' 遍历原数据行，拼接所有组合
    Dim i As Integer, j As Integer, k As Integer
    For i = 2 To sourceData.Rows.Count
        Dim country As String, gender As String
        country = sourceData.Cells(i, 1).Value
        gender = sourceData.Cells(i, 2).Value
        
        ' 嵌套遍历爱好与团队的所有组合
        For j = LBound(hobbies) To UBound(hobbies)
            For k = LBound(teams) To UBound(teams)
                outputSheet.Cells(outputRow, 1).Value = country
                outputSheet.Cells(outputRow, 2).Value = gender
                outputSheet.Cells(outputRow, 3).Value = hobbies(j)
                outputSheet.Cells(outputRow, 4).Value = teams(k)
                outputRow = outputRow + 1
            Next k
        Next j
    Next i
    
    ' 自动调整列宽
    outputSheet.Columns("A:D").AutoFit
    
    MsgBox "全组合表格已生成，共" & outputRow - 2 & "行数据", vbInformation
End Sub

使用说明 #

• 确保原数据在Sheet1的A、B列，表头位于第1行
• 代码会自动创建名为FullCombinations的工作表存放结果，若该工作表已存在则直接覆盖使用
• 运行后会弹出提示框显示生成的数据总行数

示例输出结果 #

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