excel中的文字需要两个为一组的自由组合，用什么函数能够实现啊？

附件中有样本文件，以供测试。

可以用VBA编写一个自定义函数来实现。自定义函数代码如下

Function ttt(ByVal rg As Range, k As Integer) As String
Dim st As String, st1 As String
st = rg.Text
For i = 1 To Len(st)
    For j = 1 To Len(st)
        st1 = st1 & Mid(st, i, 1) & Mid(st, j, 1)
    Next j
Next i
ttt = Mid(st1, k * 2 - 1, 2)
End Function

在工作表标签上击右键，查看代码，粘贴以下代码。ALT+F8运行这个宏，就行了

Sub bb()
Dim st
st = [a1]
For i = 1 To Len(st)
    For j = 1 To Len(st)
        Cells(Application.CountA([B:B]) + 1, "B") = Mid(st, i, 1) & Mid(st, j, 1)
    Next j
Next i
End Sub

不知道是不是你说的效果