再次需要老师帮忙修改代码

dbg111222

我需要把明细账页里的最终结果是按照时间排序的，最终结存结果在排序后也要保证准确，请老师帮忙给修改一下。

ykcbf1100

加个排序功能

ykcbf1100

参与一下。。。

1. With Sheets("明细账页")
   
2.         With .Range("a1").Resize(r, 11)
   
3.             .Value = br
   
4.             .Borders.LineStyle = xlContinuous
   
5.         End With
   
6.         Set Rng = .[a5].Resize(r - 4, 11)
   
7.         Rng.Sort .[a5], 1
   
8.     End With

复制代码

yynrzwh

时间排序1.zip (35.24 KB, 下载次数: 9)

2024-2-29 16:39 上传

点击文件名下载附件

dbg111222

ykcbf1100 发表于 2024-2-29 16:39
参与一下。。。

感谢老师，从A6开始排序，我自己改过来了。但是拍完序后，累加计算时会串行计算，能给修改一下吗？

ykcbf1100

dbg111222 发表于 2024-2-29 17:21
感谢老师，从A6开始排序，我自己改过来了。但是拍完序后，累加计算时会串行计算，能给修改一下吗？

计算完再排序的，怎么还会有计算？

gwjkkkkk

自带排序应该也很快。。。

dbg111222

已经改好了，结合两位老师的代码，终于达到预期效果了。