有点复杂：插入行相应单元格自动填写内容、不固定区域排序

zyhui1961

ykcbf1100 发表于 2023-3-27 15:57
插入小计不难，但这排序有点奇葩，第一次见。

插入小计帮忙一下呗！这个求助信息量有点大，一步一步的解决也很好。谢谢了！
我原来有一个这样的不固定区域排序代码，不是很明了，小白更改不是太方便，所以想请高手再搞一下。

fanyoulin

zyhui1961 发表于 2023-3-27 15:33
小计栏的编号是我按（科目表没发出来）子科目的先后顺序手工填写的（因为这个很少变动，手工填写也不麻烦 ...

简单帮你做了一个，但排序只弄了三项，你按照那个模式在后面自己添加你需要的排序项目；

我主要是想验证下我前面提出的编号规则是否可行。代码很短，也都有说明，你根据需要自行修改下即可；
几个解释：
cells(65000,"w").end(3).row-1:就是计算w列数据区的倒数第二行，最后一行是合计，不需要的
排序代码：
   Range("区域").Sort key1:=Range("c1"), order1:=xlAscending, Header:=xlYes

     key1:=Range("c1") 排序键值
     order1:=xlAscending 升序，可以用数字1代替，默认是升序，所以升序可以省略这个参数
     Header:=xlYes 包含标题行，也就是你这个例子的第三行

   如果有多个排序项，依次写在后面即可，不限个数

fanyoulin

zyhui1961 发表于 2023-3-27 15:33
小计栏的编号是我按（科目表没发出来）子科目的先后顺序手工填写的（因为这个很少变动，手工填写也不麻烦 ...

帮你做了，在审核，你稍晚查看

ykcbf1100

zyhui1961 发表于 2023-3-27 16:04
插入小计帮忙一下呗！这个求助信息量有点大，一步一步的解决也很好。谢谢了！
我原来有一个这样的不固定 ...

附件请参考。。。

日期栏尽量不要空白。

zyhui1961

fanyoulin 发表于 2023-3-27 16:04
简单帮你做了一个，但排序只弄了三项，你按照那个模式在后面自己添加你需要的排序项目；

我主要是想验 ...

    还是怪我没说清楚！

1、不要复制右边的数据，就在左在表格中操作。我弄了一个右边“表2”是为了说明排序过程中不要把小计求和搞乱了。

2、我增加了几个排序项总是报错（不会添加）。

zyhui1961

ykcbf1100 发表于 2023-3-27 17:10
附件请参考。。。

日期栏尽量不要空白。

谢谢！
是的，日期栏也不能空白，如果空白排序就会出问题（会在小计下面），可以先输入 “9999-99-99”这样，用的时候再更改日期。

fanyoulin

zyhui1961 发表于 2023-3-27 18:52
还是怪我没说清楚！1、不要复制右边的数据，就在左在表格中操作。我弄了一个右边“表2”是为了说明排 ...

按你的要求重做了，你再试下。

zyhui1961

fanyoulin 发表于 2023-3-28 07:39
按你的要求重做了，你再试下。

选择不固定区域排序我看明白了，就是那个插入行后自动编号没明白。试着插入行后也没看到效果。
要不算了吧，我都不好意思，太麻烦你了，这已经帮我大心了，非常感谢！！！
如果能把在“小计”上面插入的行自动填写与上面一行相同的科目就好了，其他应该都能解决了。

fanyoulin

zyhui1961 发表于 2023-3-28 14:46
选择不固定区域排序我看明白了，就是那个插入行后自动编号没明白。试着插入行后也没看到效果。
要不算了 ...

1、新插入的行要手动填入编号990，只会对编号大于等于990的行做替换，这点很重要；
2、科目填写这个不难，但也不是这么一说能搞定的，我还需要实际测试才可以，明天看看有时间再来做；

zyhui1961

fanyoulin 发表于 2023-3-28 16:25
1、新插入的行要手动填入编号990，只会对编号大于等于990的行做替换，这点很重要；
2、科目填写这个不难 ...

我的问题全部有些奇葩：https://club.excelhome.net/thread-1658296-1-1.html?_dsign

但是你每次的回复（帮忙解决问题）都很精典！


已经解决，谢谢谢谢谢谢！