excel怎样将四列文字进行组合

发布网友 发布时间：2022-04-20 07:19

我来回答

共5个回答

热心网友 时间：2023-06-24 13:06

在F2中输入
=B2&MID(C2,2,1)&RIGHT(D2,2)&LEFT(E2,2)
在F2中输入
=B2&MID(C2,2,1)&RIGHT(D2,2)&LEFT(E2,2)

这里包含了三种提取衣服的公式，MID为从字符串中间第二个字符开始提取1个字符，RIGHT为从字符串右边开始提取2个字符，LEFT为从字符串左边开始提取2个字符

追答可以用vba代码实现，复制粘贴以下代码即可
Sub Combination()

Dim str1, str2, str3, str4, i, j, m, n, k

str1 = Len(Range("A1").Value)
str2 = Len(Range("B1").Value)
str3 = Len(Range("C1").Value)
str4 = Len(Range("D1").Value)

k = 1

For i = 1 To str1
For j = 1 To str2
For m = 1 To str3
For n = 1 To str4
Cells(k, 6) = Mid(Range("A1").Value, i, 1) & Mid(Range("B1").Value, j, 1) & Mid(Range("C1").Value, m, 1) & Mid(Range("D1").Value, n, 1)
k = k + 1
n = n + 1
Next n
m = m + 1
Next m
j = j + 1

Next j
i = i + 1
Next i

End Sub

这个问题可以用vba代码解决
按下alt+F11，粘贴以下代码

Sub Combination()

Dim str1, str2, str3, str4, i, j, m, n, k

str1 = Len(Range("A1").Value)
str2 = Len(Range("B1").Value)
str3 = Len(Range("C1").Value)
str4 = Len(Range("D1").Value)

k = 1

For i = 1 To str1
For j = 1 To str2
For m = 1 To str3
For n = 1 To str4
Cells(k, 6) = Mid(Range("A1").Value, i, 1) & Mid(Range("B1").Value, j, 1) & Mid(Range("C1").Value, m, 1) & Mid(Range("D1").Value, n, 1)
k = k + 1
n = n + 1
Next n
m = m + 1
Next m
j = j + 1

Next j
i = i + 1
Next i

End Sub

热心网友 时间：2023-06-24 13:06

这位题主你好，
是不是没有讲明白你的需求？
多个汉字的提取有什么规律，
理论上是可以做到的，
但是需要明白需求。

追问我对问题进行了补充，请问我现在的描述能看得明白吗？

热心网友 时间：2023-06-24 13:07

E2公式：
=IF(ROW(A1)>LEN(A$2)*LEN(B$2)*LEN(C$2)*LEN(D$2),"",MID(A$2,MOD(INT((ROW($A1)-1)/LEN(B$2)/LEN(C$2)/LEN(D$2)),LEN(A$2))+1,1)&MID(B$2,MOD(INT((ROW($A1)-1)/LEN(C$2)/LEN(D$2)),LEN(B$2))+1,1)&MID(C$2,MOD(INT((ROW($A1)-1)/LEN(D$2)),LEN(C$2))+1,1)&MID(D$2,MOD(ROW($A1)-1,LEN(D$2))+1,1))
下拉

热心网友 时间：2023-06-24 13:07

编程可以处理需要文档

热心网友 时间：2023-06-24 13:08

请举例说明，否则纯猜谜语是无解的。