Kalsefar 发表于 2022-7-6 21:00:23

最大到最小或相反

你好
 
我需要VBA代码自动排序数据从最大到最小或反之亦然。

Kalsefar 发表于 2022-7-6 22:52:43

 
私有子工作表_更改（ByVal目标为Excel.Range）
If目标。列=2，则
        
将最后一行变暗为长
lastrow=单元格（Rows.Count，2）。结束（xlUp）。一行
范围（“B2:C”和lastrow）。排序键1：=范围（“B2:B”和lastrow），顺序1：=xlAscending，标题：=xlNo
        
    
如果结束
    
末端接头
 
如果将来有人需要，这就是代码。
页: [1]
查看完整版本: 最大到最小或相反