怎样用VBA批量更改条件格式的条件？

yhaso

怎样用VBA批量更改条件格式的条件？各位高手帮下忙？
要求：B2-B24类似批量改，（实际很多行的，只是举个例子）判断值是每列每个单元格不同的，没有规律的，B列的条件格式的条件里$A$1改成对应单元格的位置$B$2、$B$3、$B$4.。。就可以。条件格式的条件<>后的判断值是原来就设定好的，不能改变。也就是说每列的单元格的条件格式的条件<>后的判断值是不同的，每行的条件格式的条件<>后的判断值是不变的，例如，B列条件格式的原来条件为
B3 条件格式的条件： =$A$1<88.55475和  =$A$1>99.1754
B4 条件格式的条件： =$A$1<67.57574和  =$A$1>77.1757
B5 条件格式的条件： =$A$1<78.57524和  =$A$1>88.1542
B6 条件格式的条件： =$A$1<52.5745和   =$A$1>73.1752
B7 条件格式的条件： =$A$1<42.55442和  =$A$1>63.1385
B8 条件格式的条件： =$A$1<22.555和   =$A$1>53.1747
B9 条件格式的条件： =$A$1<32.525和   =$A$1>83.1774
B10 条件格式的条件：=$A$1<64.574和   =$A$1>73.163
。。。。。。。。
B23 条件格式的条件：=$A$1<80.7和     =$A$1>83.2
B24 条件格式的条件：=$A$1<72.5和     =$A$1>93.1


B列批量改为要求条件格式的条件：

B2 条件格式的条件： =$B$2<72.554和    =$B$2>93.174
B3 条件格式的条件 ：=$B$3<88.55475和  =$B$3>99.1754
B4 条件格式的条件： =$B$4<67.57574和  =$B$4>77.1757
B5 条件格式的条件： =$B$5<78.57524和  =$B$5>88.1542
B6 条件格式的条件： =$B$6<52.5745和   =$B$6>73.1752
B7 条件格式的条件： =$B$7<42.55442和   =$B$7>63.1385
B8 条件格式的条件： =$B$8<22.555和    =$B$8>53.1747
B9 条件格式的条件： =$B$9<32.525和     =$B$9>83.1774
B10 条件格式的条件：=$B$10<64.574和    =$B$10>73.163
。。。。。。。。
B23 条件格式的条件：=$B$23<80.7和     =$B$23>83.2
B24 条件格式的条件：=$B$24<72.5和     =$B$24>93.1