Question

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

就像这样，一个个往下排列。
=IF(LEN($A$1)>=INT((ROW()-2)/LEN($A$1))+MOD(ROW()-2,LEN($A$1))+2,MID($A$1,INT((ROW()-2)/LEN($A$1))+1,1) & MID($A$1,INT((ROW()-2)/LEN($A$1))+MOD(ROW()-2,LEN($A$1))+2,1),"")

这个函数可以排列下来，但是不能从第一个字开始。是需要那种从第一个字开始排列的





Answer 1

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

可以用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

 

Answer 2

 

不知道是不是你说的效果