求助大神，按日期先列后行的顺序逐条打印数据

dnvjfdeuff

按日期先列后行的顺序逐条打印数据，打印列不能固定死，要随着拆分的列变化而变化

dnvjfdeuff

打印日期是要列的变化而变化，不能固定死

gwjkkkkk

Option Explicit
Sub TEST2()
    Dim ar, br, i&, j&, dic As Object, vKey
   
    Set dic = CreateObject("Scripting.Dictionary")
    ar = Sheets(1).[A1].CurrentRegion
    For j = 6 To UBound(ar, 2)
        ReDim br(1 To 6, 1 To 5)
        For i = 2 To UBound(ar)
            If ar(i, j) <> "" Then
                br(i - 1, 1) = i - 1
                br(i - 1, 2) = ar(i, 3)
                br(i - 1, 4) = "kg"
                br(i - 1, 5) = ar(i, j)
            End If
        Next i
        dic(ar(1, j)) = br
    Next j
    For Each vKey In dic.keys
        With [A4:E9]
            .ClearContents
            .Value = dic(vKey)
        End With
        ActiveSheet.PrintOut
    Next
End Sub

gwjkkkkk

请参考 。。。

dnvjfdeuff

gwjkkkkk 发表于 2023-5-22 19:46
请参考 。。。

大神日期是对了，行一条一条下去

dnvjfdeuff

gwjkkkkk 发表于 2023-5-22 19:46
请参考 。。。

通过b2与c2为关键字，然后根据日期逐列打印，然后，b3与c3为关键字，逐列打印 至打印结束

dnvjfdeuff

gwjkkkkk 发表于 2023-5-22 19:41
Option Explicit
Sub TEST2()
    Dim ar, br, i&, j&, dic As Object, vKey

可能是我意思没有描述清楚，按一行一行打印，然后根据列中的日期一列一列打印，第一行打印结束 接着打印第二行，再一次根据列的日期打印一次，直到打印结束

gwjkkkkk

dnvjfdeuff 发表于 2023-5-22 21:38
可能是我意思没有描述清楚，按一行一行打印，然后根据列中的日期一列一列打印，第一行打印结束 接着打印 ...

不知道是不是这个意思，请参考。。。

dnvjfdeuff

gwjkkkkk 发表于 2023-5-22 21:58
不知道是不是这个意思，请参考。。。

大神其他都准确啦！就是生产部门B2没有跟着数据B2变化发生变化

dnvjfdeuff

gwjkkkkk 发表于 2023-5-22 21:58
不知道是不是这个意思，请参考。。。

谢谢大神帮助，那个问题已经解决