如何让同一人多行多列数据合并成一行呢？

roserice

=DROP(BYCOL(FILTER($A$2:$F$6,$A$2:$A$6=A3),LAMBDA(x,REGEXEXTRACT(TEXTJOIN("-",TRUE,x),"[一-龟]+\d+",1))),,1)下拉

LIUZHU

参与下，JSA

LIUZHU

cjc209 发表于 2025-2-16 13:22
js自定义函数一句搞定

多维转一维，分享下

LIUZHU

今铭昔 发表于 2025-2-15 15:54

如果填充的内容不是交错的，应该不能这么写吧

今铭昔

LIUZHU 发表于 2025-2-20 09:16
如果填充的内容不是交错的，应该不能这么写吧

如果有重叠，只会保留第一次出现的，如果要特别处理重叠问题这么写就不行了，不过楼主也没说这个怎么处理，数据源又没有重叠部分

cjc209

LIUZHU 发表于 2025-2-20 09:03
多维转一维，分享下

这是一套 自定义函数库 不是一个自定义函数完成的 具有通用性 你不知道参数怎么填入 拿去也没有用

翁知江安

Sub huiz()
Dim i, j, k, irow, icolumn
Dim ar, br, cr As Variant
Dim d1, d2, d3 As Object
Set d1 = CreateObject("scripting.dictionary")
Set d2 = CreateObject("scripting.dictionary")
Set d3 = CreateObject("scripting.dictionary")
Sheet1.[h1].Resize(15, 6).ClearContents
irow = Sheet1.[a65536].End(xlUp).Row
icolumn = Sheet1.[iv1].End(xlToLeft).Column
ar = Sheet1.[a1].Resize(irow, icolumn)
For i = 2 To irow
  d1(ar(i, 1)) = ""
   For j = 2 To icolumn
     d2(ar(1, j)) = ""
   If ar(i, j) <> "" Then
     If Not d3.exists(ar(i, 1) & ar(1, j)) Then
     d3(ar(i, 1) & ar(1, j)) = ar(i, j)
     Else
       d3(ar(i, 1) & ar(1, j)) = d3(ar(i, 1) & ar(1, j)) & "," & ar(i, j)
     End If
    End If
    Next
Next
Sheet1.[h2].Resize(d1.Count, 1) = WorksheetFunction.Transpose(d1.keys)
Sheet1.[i1].Resize(1, d2.Count) = d2.keys
br = Sheet1.[h1].Resize(1 + d1.Count, 1 + d2.Count)
ReDim cr(1 To d1.Count, 1 To d2.Count)
For i = 2 To d1.Count + 1
    For j = 2 To d2.Count + 1
    cr(i - 1, j - 1) = d3(br(i, 1) & br(1, j))
    Next
Next
Sheet1.[i2].Resize(UBound(cr), UBound(cr, 2)) = cr
MsgBox "ok"
End Sub

翁知江安

供参考，欢迎批评指正

jjmysjg

翁知江安 发表于 2025-2-20 14:13
供参考，欢迎批评指正

Sheet1.[h1].Resize(15, 6).ClearContents
?

faslow

lyfegf 发表于 2025-2-15 14:29

帅哥，你这个是什么？怎么感觉不是vba?