我有一个工作代码,以复制大量的数据从一个月单到每日表。大约有30列数据要在2000行中复制。我不知道怎样才能加快这项工作,因为复制一篇专栏要花大约3分钟的时间。所有30个专栏我都要这么做。月表中列的顺序与日表中的顺序不一样。月表D栏可能代表每日报表的P栏。如果这些有学问的人能帮助改进代码,我将非常感激。PJ
Dim i As Long, j As Long, lastrow1</e
我有一个数据表,因此需要从水平布局转换信息的特定列,并将其插入到初始行下面。为了使事情更加复杂,任何值为零的列都需要被忽略,每一行都可能有不同的列和零。r, count As Range Dim temp As Integer
Setcount = Range("Q:Q")
LastRow = Range(&