统计数据表如何逆向转换为流水账记录表？

星月无双

统计记录表如何逆向转换为流水账记录表？？详见附件。

zhzhang9756

Alt+F11，拷贝下面代码到窗口中，回到Excel视图，在相应的sheet中运行该宏

Sub Split()

Dim i, j As Integer
A = Range("IV2").End(xlToLeft).Column - 1
B = Range("A65536").End(xlUp).Row - 1

For j = 0 To A - 1
    For i = 0 To B - 1
        Cells(1, A + 3) = "日期"
        Cells(1, A + 4) = "货物名称"
        Cells(1, A + 5) = "数量"
        Cells(i + 2 + j * B, A + 3) = Cells(i + 2, 1)
        Cells(i + 2 + j * B, A + 4) = Cells(1, j + 2)
        Cells(i + 2 + j * B, A + 5) = Cells(i + 2, 2 + j)
    Next i
Next j
      
End Sub

星月无双

十分感谢楼上这位朋友，问题已经解决，我用的是数据透视表的方法，虽然操作麻烦了一点，不过效果还不错呵呵。你的这个解答正好在另外一个表里能用上，再次感谢。

wanghx8866

谢谢