关于合并行的问题求助！

平平淡淡的天使

各位大神，我想实现如下图的效果，最好用SQL实现，我想不出解决方案，请各位大神帮忙下！谢谢！

平平淡淡的天使

各位大神帮忙一下吧。。谢谢！

有4地

把附件传上来

平平淡淡的天使

有4地 发表于 2016-7-18 12:50
把附件传上来

已上传 请大师帮忙！

有4地

1. =IFERROR(VLOOKUP($A13&COLUMN(A1),IF({1,0},$A$2:$A$6&COUNTIF(INDIRECT("a2:a"&ROW($2:$6)),$A13),OFFSET($A$2:$A$6,,MATCH(B$12,$B$1:$F$1,))),2,),"")

复制代码

数组公式

平平淡淡的天使

有4地 发表于 2016-7-18 13:34
数组公式

谢谢，其实我希望用SQL  因为数据量大，，不过很感谢

魂断蓝桥

平平淡淡的天使 发表于 2016-7-18 13:47
谢谢，其实我希望用SQL  因为数据量大，，不过很感谢

sql 在excel表格中，不如数组+字典快

Sub a()
Dim arr, brr(1 To 999, 1 To 10), i%, j%, m%, d, t%
arr = [a1].CurrentRegion
Set d = CreateObject("Scripting.Dictionary")
t = 1
For i = 2 To UBound(arr)
    If Not d.exists(arr(i, 1)) Then
        m = m + 1
        brr(m, 1) = arr(i, 1)
        d(arr(i, 1)) = m
    Else
        't = 1
    End If
        For j = 2 To UBound(arr, 2)
            If arr(i, j) <> "" Then
                brr(d(arr(i, 1)), j) = arr(i, j)
            End If
        Next
        
Next
[h:z] = ""
[a1:f1].Copy [h1]
[h2].Resize(m, 10) = brr

End Sub

平平淡淡的天使

魂断蓝桥 发表于 2016-7-19 13:00
sql 在excel表格中，不如数组+字典快

Sub a()

谢谢版主！