40个汉字（不重复）如何排列组合成为词组（两个汉字）？

秋风萧萧人不愁

求助各路大神：40个汉字（不重复）如何排列组合成为词组（两个汉字）？求EXCEL公式，非常感谢！

魚。。

我太难了……

geniux

数学问题吧，单个词进行排列组合呗。词组不进行语义判断。1560种组合
Sub JoinText()
    Dim i As Long
    Dim j As Long
        For i = 1 To 40 Step 1
            For j = 1 To 40 Step 1
                If i <> j Then
                    ThisWorkbook.Sheets("Sheet1").Cells(i, j + 1) = ThisWorkbook.Sheets("Sheet1").Cells(i, 1) & "~" & ThisWorkbook.Sheets("Sheet1").Cells(j, 1)
                    '
                End If
            Next
        Next
End Sub

micch

=index(a:a,1+int(row(1:1600)/40-1%))&index(a:a,1+mod(row(1:1600),40))

hcm19522

C2 下拉{=IFERROR(INDEX(A$2:A$10&TRANSPOSE(A$2:A$10),SMALL(IF(ROW($1:$9)<COLUMN(A:I),ROW($1:$9)),ROW(A1)),RIGHT(SMALL(IF(ROW($1:$9)<COLUMN(A:I),ROW($1:$9)/1%+COLUMN(A:I)),ROW(A1)))),"")

(數據A1:A41計40資料)下拉D2{=IFERROR(INDEX(A$2:A$41&TRANSPOSE(A$2:A$41),SMALL(IF(ROW($1:$40)<COLUMN(A:AN),ROW($1:$40)),ROW(A1)),RIGHT(SMALL(IF(ROW($1:$40)<COLUMN(A:AN),ROW($1:$40)/1%+COLUMN(A:AN)),ROW(A1)),2)),"")

秋风萧萧人不愁

geniux 发表于 2019-11-18 09:37
数学问题吧，单个词进行排列组合呗。词组不进行语义判断。1560种组合
Sub JoinText()
    Dim i As Long
...

谢谢技术大神！！！

秋风萧萧人不愁

hcm19522 发表于 2019-11-18 14:03
C2 下拉{=IFERROR(INDEX(A$2:A$10&TRANSPOSE(A$2:A$10),SMALL(IF(ROW($1:$9)

求助大神！这40个字能直接帮我做成EXCEL吗？公式还是用不来啊
创
智
辉
汇
锐
乾
达
睿
信
泓
瑞
泽
锦
聚
益
易
庚
喆
晟
享
鑫
联
善
邦
蕴
瑄
共
荣
昊
润
浩
崇
赢
英
极
艾
宝
翔
豪
佳

hcm19522

秋风萧萧人不愁 发表于 2019-11-18 20:12
求助大神！这40个字能直接帮我做成EXCEL吗？公式还是用不来啊
创
智

~~~~~~~~~~