Question

excel 文字排列组合

如图：最大程度的组合这些词组。求函数。答得好，追加分数。

行2+行3+列1
行2+行4+列1
行2+行5+列1
行3+行4+列2
行2+行4+列2

行2+行3+列2
行2+行4+列2
行2+行5+列2

只要求两个行词加+1个列词
前几位兄弟没有理解好的我的问题。
我不是要1个行词+1个列词。这个我会。
我要的是任意两个行词+任意1个列词，谢谢。

Answer 1

excel 文字排列组合，可以采用下列方法：
【1】VBA模块，循桐首环即可。
1、按ALT+F11，插入一个模块局旁数，复制下面的代码。
Sub zuhe()
Application.ScreenUpdating = False
Dim ii, jj, mm, nn
Dim i, j, m, n, k
With ActiveSheet
ii = .Range("A65535").End(xlUp).Row
jj = .Range("B65535").End(xlUp).Row
mm = .Range("C65535").End(xlUp).Row
nn = .Range("D65535").End(xlUp).Row
k = 1
For i = 1 To ii
For j = 1 To jj
For m = 1 To mm
For n = 1 To nn
.Cells(k, 5).Value = .Cells(i, 1).Value & .Cells(j, 2).Value & .Cells(m, 3).Value & .Cells(n, 4).Value
k = k + 1
Next n
Next m
Next j
Next i
End With
Application.ScreenUpdating = True
End Sub
2、关闭启首VBE，回到工作表，按ALT+F8，选择zuhe执行。
3、要是再多出E1到E3的单元格写3个词，气质，时尚，休闲，这个程序需要再加一个循环：
Sub zuhe()
Application.ScreenUpdating = False
Dim ii, jj, mm, nn, ll
Dim i, j, m, n, k, l
With ActiveSheet
ii = .Range("A65535").End(xlUp).Row
jj = .Range("B65535").End(xlUp).Row
mm = .Range("C65535").End(xlUp).Row
nn = .Range("D65535").End(xlUp).Row
ll = .Range("E65535").End(xlUp).Row
k = 1
For i = 1 To ii
For j = 1 To jj
For m = 1 To mm
For n = 1 To nn
For l = 1 To ll
.Cells(k, 6).Value = .Cells(i, 1).Value & .Cells(j, 2).Value & .Cells(m, 3).Value & .Cells(n, 4).Value & .Cells(n, 5).Value

k = k + 1
Next l
Next n
Next m
Next j
Next i
End With
Application.ScreenUpdating = True
End Sub
【2】G列公式：
=IF(A1="","",A1&B1&C1&D1&E1&F1&TEXT(SUMPRODUCT(--(A$1:A1&B$1:B1&C$1:C1&D$1:D1&E$1:E1&F$1:F1=A1&B1&C1&D1&E1&F1)),"0000"))，下拉。
【3】=INDIRECT("A"&ROW(A2))&INDIRECT("A"&ROW(A3))&" "&B$1 ，向右拉向下拉。

Answer 2

词中间不加空格的公式：
B3=B1&$A$3&$A$2

加空格扰颂枣的公缓拆式：
B3=B1&" "&$A$3&" "&$A$2樱租

主要知识点在于相对引用和绝对引用,公式输入好后，向右拖拉复制公式即可。

Answer 3

=INDIRECT("A"&ROW(A2))&INDIRECT("A"渗局穗&ROW(A3))&腊源" "&B$1
向右丛卜拉向下拉

Answer 4

B2内输入公式，右拉首好复制，在选渗芹汪中刚刚填充的区域，下拉复制
=B$1&" "&$A2丛仔

Answer 5

在B2输入公式:
=B1&" "&$A2
将公式向右向下复制.