多行多列合并一行多列

翡然 · 发表于 2019-10-17 16:38

满坛皆为吾师发表于 2019-10-17 16:02
K2右拉下拉，需TEXTJOIN函数
=TEXTJOIN(";",,OFFSET(B$1,IF($J1=$J2,99,ROW(A1)),,COUNTIF($J:$J,$J2))&"" ...

老师，我输入公式后得#NAME? 错误值

翡然 · 发表于 2019-10-17 16:39

micch 发表于 2019-10-17 16:25
文本合并，需要新函数啊。合并到同一行后其他行都是空的？是不是可以不保留了

是的，不需要保留

翡然 · 发表于 2019-10-17 16:40

solextrade 发表于 2019-10-17 16:11
数组火车右拖下拖，K2

=IFERROR(IF(COUNTIF($J$2:$J2,$J2)=1,TEXTJOIN(";",1,T(INDEX(B:B,N(IF(1,SMALL( ...

老师，我输入公式后得空白值
IFERROR(IF(COUNTIF($J$2:$J2,$J2)=1,TEXTJOIN(";",1,T(INDEX(B:B,N(IF(1,SMALL(IF(($A$2:$A$13=$J2)*(B$2:B$13>0),ROW(A$2:A$13)),ROW(INDIRECT("1:"&COUNTIFS($A$2:$A$13,$J2,B$2:B$13,"<>"))))))))),""),"")

solextrade · 发表于 2019-10-17 16:44

翡然发表于 2019-10-17 16:40
老师，我输入公式后得空白值
IFERROR(IF(COUNTIF($J$2:$J2,$J2)=1,TEXTJOIN(";",1,T(INDEX(B:B,N(IF(1,S ...

多行多列.rar (10.79 KB, 下载次数: 11)

翡然 · 发表于 2019-10-17 16:51

solextrade 发表于 2019-10-17 16:44

应该是版本的问题，谢谢老师

1055751654 · 发表于 2019-10-17 17:15

公司电脑真蛋疼，下了个WPS,按三键，=IF($J2=$J1,"",TEXTJOIN(";",1,IFERROR(T(INDIRECT(TEXT(((B$2:B$13>0)*($A$2:$A$13=$J2))^0*ROW($2:$13)*100+COLUMN(B1),"R0C00"),)),"")))

micch · 发表于 2019-10-17 23:37

本帖最后由 micch 于 2019-10-21 00:38 编辑

翡然发表于 2019-10-17 16:39
是的，不需要保留

A列去重到J列，K列右下拉

=TEXTJOIN(",",1,IF($J2=$A$2:$A$13,B$2:B$13&"",""))

复制代码

那需要A列去重，然后再生成新的表格。没有textjoin，只好直接代码了

Sub test()
Set d = CreateObject("scripting.dictionary")
arr = Range(Sheet1.[a1].End(4), Sheet1.[a1].End(2))
For i = 2 To 13: For k = 2 To UBound(arr, 2)
d(arr(i, 1) & arr(1, k)) = d(arr(i, 1) & arr(1, k)) & IIf(arr(i, k) = "", "", "," & arr(i, k))
Next k, i
ar = Filter(d.keys, arr(1, 2))
br = Filter(d.keys, arr(2, 1))
ReDim brr(UBound(ar) + 1, UBound(br) + 1)
For i = 1 To UBound(brr): brr(i, 0) = Replace(ar(i - 1), arr(1, 2), ""): Next
For i = 1 To UBound(brr, 2): brr(0, i) = Replace(br(i - 1), arr(2, 1), ""): Next
For i = 1 To UBound(brr): For k = 1 To UBound(brr, 2)
brr(i, k) = Mid(d(brr(i, 0) & brr(0, k)), 2)
Next k, i
Worksheets.Add
[a1].Resize(i, k) = brr
End Sub

复制代码

jjmysjg · 发表于 2019-10-20 10:01

micch 发表于 2019-10-17 23:37
A列去重到J列，K列右下拉
那需要A列去重，然后再生成新的表格。没有textjoin，只好直接代码了

留下记号，谢谢

翡然 · 发表于 2019-10-21 09:43

1055751654 发表于 2019-10-17 17:15
公司电脑真蛋疼，下了个WPS,按三键，=IF($J2=$J1,"",TEXTJOIN(";",1,IFERROR(T(INDIRECT(TEXT(((B$2:B$13>0 ...

已解决，谢谢您

翡然 · 发表于 2019-10-21 09:43

micch 发表于 2019-10-17 23:37
A列去重到J列，K列右下拉
那需要A列去重，然后再生成新的表格。没有textjoin，只好直接代码了

谢谢您，我试一下

		自动登录	找回密码
密码			免费注册

[已解决] 多行多列合并一行多列

点评