如何将纵列B相同的数据D数列转置横向排列

shichen20

如题，如何将纵列B相同的数据D数列转置横向排列？

solextrade

=IF(SUM($G$1:G1)>SUMIF($B:$B,$F3,$C:$C),"",INDEX($D:$D,MATCH($F3,$B:$B,)-1+G1/5))

shichen20

solextrade 发表于 2020-10-18 20:44
=IF(SUM($G$1:G1)>SUMIF($B:$B,$F3,$C:$C),"",INDEX($D:$D,MATCH($F3,$B:$B,)-1+G1/5))

试了一下同行可以，但不能批量进行，数据比较多，隔行数量也不同，有批量操作的方法吗？

cjc209

shichen20 发表于 2020-10-18 20:53
试了一下同行可以，但不能批量进行，数据比较多，隔行数量也不同，有批量操作的方法吗？

你的必须要sa=001 要对齐左边的sa=001开始行吗？

cjc209

Sub 字典数组法装置()
    Dim arr, brr()
    Set d = CreateObject("scripting.dictionary")
    arr = Range("b3:d" & Range("b" & Rows.Count).End(xlUp).Row)
    For i = 1 To UBound(arr)
        If Not d.Exists(arr(i, 1)) Then '字典里存在的时候
            ReDim brr(1 To 1, 1 To 1)
            brr(1, 1) = arr(i, 3)
            d(arr(i, 1)) = brr
        Else
            brr = d(arr(i, 1))
            xb = UBound(brr, 2) + 1
            ReDim Preserve brr(1 To 1, 1 To xb)
            brr(1, xb) = arr(i, 3)
            d(arr(i, 1)) = brr
        End If
    Next i
    If d.Count Then
        For Each ky In d.keys
            For Each r In Range("b3:b" & Range("B" & Rows.Count).End(xlUp).Row)
                If ky = r.Value Then
                    r.Offset(0, 4) = ky
                    drr = d(ky)
                    r.Offset(0, 5).Resize(1, UBound(drr, 2)) = drr
                    Exit For
                End If
            Next r
        Next ky
    End If
End Sub

shichen20

cjc209 发表于 2020-10-18 21:03
你的必须要sa=001 要对齐左边的sa=001开始行吗？

不用，可以顺序排列的。
另，那些工序名也不是顺序排列，无序排列且可能重复或不同。

shichen20

cjc209 发表于 2020-10-18 21:03
你的必须要sa=001 要对齐左边的sa=001开始行吗？

不用，另外表单也可以的

shichen20

cjc209 发表于 2020-10-18 21:30
Sub 字典数组法装置()
    Dim arr, brr()
    Set d = CreateObject("scripting.dictionary")

这个有点难，能传个附件看下吗？

cjc209

shichen20 发表于 2020-10-19 16:54
这个有点难，能传个附件看下吗？

代码都给你了 难道你VBA知识一窍不通吗？

rl880915

=INDEX($D:$D,MATCH($F$3&G1,$B:$B&$C:$C,0))三键