Question

如图，求个公式？

Answer 1

=MID($A$1,IF(ROW(A1)<=LEN($B$1)*LEN($C$1),1,(IF(ROW(A1)<=LEN($B$1)*LEN($C$1)*2,2,(IF(ROW(A1)<=LEN($B$1)*LEN($C$1)*3,3,(IF(ROW(A1)<=LEN($B$1)*LEN($C$1)*4,4))))))),1)&MID($B$1,IF(IF(MOD(ROW(B1),16)<>0,MOD(ROW(B1),16),16)<=LEN($C$1),1,(IF(IF(MOD(ROW(B1),16)<>0,MOD(ROW(B1),16),16)<=LEN($C$1)*2,2,(IF(IF(MOD(ROW(B1),16)<>0,MOD(ROW(B1),16),16)<=LEN($C$1)*3,3,(IF(IF(MOD(ROW(B1),16)<>0,MOD(ROW(B1),16),16)<=LEN($C$1)*4,4))))))),1)&MID($C$1,IF(MOD(ROW(C1),4)<>0,MOD(ROW(C1),4),4),1)

Answer 2

=IF(ROW()<=LEN($A$1)*LEN($B$1)*LEN($C$1),MID($A$1,MOD(INT((ROW()-1)/(LEN($B$1)*LEN($C$1))),LEN($A$1))+1,1) & MID($B$1,MOD(INT((ROW() -1)/4),LEN($B$1))+1,1) & MID($C$1,MOD((ROW()-1),LEN($C$1))+1,1),"")

Answer 3

Sub 各取一()
Dim i&, j&, k&, l&, a$, b$, c$
a = [A1]: b = [B1]: c = [C1]
For i = 1 To Len(a)
For j = 1 To Len(b)
For k = 1 To Len(c)
l = l + 1
Cells(l, "D") = Mid(a, i, 1) & Mid(b, j, 1) & Mid(c, k, 1)
Next k
Next j
Next i
End Sub
使用以上代码，运行一遍即可。