以下是一个VBA宏代码，可以生成WPS表格中3行9列区域内所有单元格内容的组合： ```vba Sub GenerateCombinations() Dim ws As Worksheet Dim inputRange As Range Dim outputCell As Range Dim row1 As Range, row2 As Range, row3 As Range Dim i As Integer, j As Integer, k As Integer Dim outputRow As Integer ' 设置工作表和输入范围 Set ws = ActiveSheet Set inputRange = ws.Range("A1:I3") ' 3行9列的范围 ' 设置输出起始位置 Set outputCell = ws.Range("A5") ' 组合结果从A5开始输出 outputRow = 5 ' 获取每行的数据 Set row1 = ws.Range("A1:I1") Set row2 = ws.Range("A2:I2") Set row3 = ws.Range("A3:I3") ' 清空可能存在的旧结果 ws.Range(outputCell, outputCell.Offset(10000, 0)).Clear ' 生成所有可能的组合 For i = 1 To 9 For j = 1 To 9 For k = 1 To 9 ws.Cells(outputRow, 1).Value = row1.Cells(1, i).Value & " " & _ row2.Cells(1, j).Value & " " & _ row3.Cells(1, k).Value outputRow = outputRow + 1 Next k Next j Next i MsgBox "共生成 " & (outputRow - 5) & " 种组合", vbInformation End Sub ``` 使用说明： 1. 在WPS表格中按Alt+F11打开VBA编辑器 2. 插入新模块并粘贴上述代码 3. 在A1:I3区域输入需要组合的文本 4. 运行宏，结果将从A5单元格开始输出 注意事项： - 该代码会生成9×9×9=729种组合 - 组合格式为"第一行内容 第二行内容 第三行内容" - 如果单元格为空，组合中会显示空字符串 三条额外需要注意的逻辑点： 1. 代码假设输入区域严格为3行9列，如果范围不同需要修改Range("A1:I3")部分 2. 组合顺序固定为第一行+第二行+第三行，如需改变顺序需调整代码中的连接顺序 3. 输出结果会覆盖A5开始的区域，如有重要数据请先备份 [2025-03-26 17:49:05 | AI写代码神器 | 577点数解答]