请教一个排序的公式设置问题

jydodo

本人要对数据进行统计（图表见附件），现有几个问题请教各位高手：
一是如何使新数据（青色部分）中所有大于或等于34的数据自动转换为该数据减去33的差；所有小于或等于0的数据自动转换为该数据加上33的和。
二是在某一行数据中，如果新数据中的任何一个数据等于老数据中的任何一个数据，则新数据的图案色彩自动由青色变为红色。其它行的数据类推。同时，自动计算某一列色彩为红色的次数的总和（所有色彩为红色的次数有多少）（总和位于29行）
三是按29行从小到大，对H--GW列自动进行排序？（目标见表二）
目前，第一、二个问题，已用了VBA解决了，具体见附件表一中“请点击这里”，但第三个问题还总是搞不好，唯有请教各位高手了。哪位高手指导一下，并在“请点击这里”加以设置，不胜感谢！

liwen

第三个问题,就是排序选项设为按行排序即可
如代码:    Range("H3:GW29").Sort Key1:=Range("H29"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, SortMethod _
        :=xlPinYin, DataOption1:=xlSortNormal
如果你不是固定29行,则需要稍做变通处理即可.

jydodo

谢谢。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。