注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

零售创新,创新那些事儿,SPSS,VBA

零售创新

 
 
 

日志

 
 
关于我

新浪微博,零售创新 研究经理,数据分析师 希望和市场研究和零售业的同事共同进步! 本博客发表的都是免费或试用的资料,如果有版权问题请发邮件wangli12a@163.com联系删除。 spss excel vba blog

网易考拉推荐

VBA 0,1变量替换宏(字数限制只到第200列)  

2010-03-12 11:38:57|  分类: VB和VBA知识 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |

Sub 替换宏()

Columns("B:B").Select

Selection.Replace What:="1", Replacement:="2", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("C:C").Select

Selection.Replace What:="1", Replacement:="3", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("D:D").Select

Selection.Replace What:="1", Replacement:="4", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("E:E").Select

Selection.Replace What:="1", Replacement:="5", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("F:F").Select

Selection.Replace What:="1", Replacement:="6", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("G:G").Select

Selection.Replace What:="1", Replacement:="7", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("H:H").Select

Selection.Replace What:="1", Replacement:="8", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("I:I").Select

Selection.Replace What:="1", Replacement:="9", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("J:J").Select

Selection.Replace What:="1", Replacement:="10", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("K:K").Select

Selection.Replace What:="1", Replacement:="11", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("L:L").Select

Selection.Replace What:="1", Replacement:="12", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("M:M").Select

Selection.Replace What:="1", Replacement:="13", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("N:N").Select

Selection.Replace What:="1", Replacement:="14", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("O:O").Select

Selection.Replace What:="1", Replacement:="15", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("P:P").Select

Selection.Replace What:="1", Replacement:="16", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("Q:Q").Select

Selection.Replace What:="1", Replacement:="17", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("R:R").Select

Selection.Replace What:="1", Replacement:="18", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("S:S").Select

Selection.Replace What:="1", Replacement:="19", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("T:T").Select

Selection.Replace What:="1", Replacement:="20", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("U:U").Select

Selection.Replace What:="1", Replacement:="21", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("V:V").Select

Selection.Replace What:="1", Replacement:="22", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("W:W").Select

Selection.Replace What:="1", Replacement:="23", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("X:X").Select

Selection.Replace What:="1", Replacement:="24", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("Y:Y").Select

Selection.Replace What:="1", Replacement:="25", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("Z:Z").Select

Selection.Replace What:="1", Replacement:="26", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("AA:AA").Select

Selection.Replace What:="1", Replacement:="27", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("AB:AB").Select

Selection.Replace What:="1", Replacement:="28", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("AC:AC").Select

Selection.Replace What:="1", Replacement:="29", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("AD:AD").Select

Selection.Replace What:="1", Replacement:="30", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("AE:AE").Select

Selection.Replace What:="1", Replacement:="31", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("AF:AF").Select

Selection.Replace What:="1", Replacement:="32", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("AG:AG").Select

Selection.Replace What:="1", Replacement:="33", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("AH:AH").Select

Selection.Replace What:="1", Replacement:="34", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("AI:AI").Select

Selection.Replace What:="1", Replacement:="35", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("AJ:AJ").Select

Selection.Replace What:="1", Replacement:="36", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("AK:AK").Select

Selection.Replace What:="1", Replacement:="37", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("AL:AL").Select

Selection.Replace What:="1", Replacement:="38", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("AM:AM").Select

Selection.Replace What:="1", Replacement:="39", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("AN:AN").Select

Selection.Replace What:="1", Replacement:="40", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("AO:AO").Select

Selection.Replace What:="1", Replacement:="41", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("AP:AP").Select

Selection.Replace What:="1", Replacement:="42", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("AQ:AQ").Select

Selection.Replace What:="1", Replacement:="43", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("AR:AR").Select

Selection.Replace What:="1", Replacement:="44", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("AS:AS").Select

Selection.Replace What:="1", Replacement:="45", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("AT:AT").Select

Selection.Replace What:="1", Replacement:="46", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("AU:AU").Select

Selection.Replace What:="1", Replacement:="47", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("AV:AV").Select

Selection.Replace What:="1", Replacement:="48", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("AW:AW").Select

Selection.Replace What:="1", Replacement:="49", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("AX:AX").Select

Selection.Replace What:="1", Replacement:="50", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("AY:AY").Select

Selection.Replace What:="1", Replacement:="51", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("AZ:AZ").Select

Selection.Replace What:="1", Replacement:="52", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("BA:BA").Select

Selection.Replace What:="1", Replacement:="53", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("BB:BB").Select

Selection.Replace What:="1", Replacement:="54", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("BC:BC").Select

Selection.Replace What:="1", Replacement:="55", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("BD:BD").Select

Selection.Replace What:="1", Replacement:="56", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("BE:BE").Select

Selection.Replace What:="1", Replacement:="57", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("BF:BF").Select

Selection.Replace What:="1", Replacement:="58", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("BG:BG").Select

Selection.Replace What:="1", Replacement:="59", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("BH:BH").Select

Selection.Replace What:="1", Replacement:="60", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("BI:BI").Select

Selection.Replace What:="1", Replacement:="61", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("BJ:BJ").Select

Selection.Replace What:="1", Replacement:="62", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("BK:BK").Select

Selection.Replace What:="1", Replacement:="63", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("BL:BL").Select

Selection.Replace What:="1", Replacement:="64", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("BM:BM").Select

Selection.Replace What:="1", Replacement:="65", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("BN:BN").Select

Selection.Replace What:="1", Replacement:="66", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("BO:BO").Select

Selection.Replace What:="1", Replacement:="67", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("BP:BP").Select

Selection.Replace What:="1", Replacement:="68", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("BQ:BQ").Select

Selection.Replace What:="1", Replacement:="69", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("BR:BR").Select

Selection.Replace What:="1", Replacement:="70", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("BS:BS").Select

Selection.Replace What:="1", Replacement:="71", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("BT:BT").Select

Selection.Replace What:="1", Replacement:="72", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("BU:BU").Select

Selection.Replace What:="1", Replacement:="73", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("BV:BV").Select

Selection.Replace What:="1", Replacement:="74", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("BW:BW").Select

Selection.Replace What:="1", Replacement:="75", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("BX:BX").Select

Selection.Replace What:="1", Replacement:="76", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("BY:BY").Select

Selection.Replace What:="1", Replacement:="77", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("BZ:BZ").Select

Selection.Replace What:="1", Replacement:="78", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("CA:CA").Select

Selection.Replace What:="1", Replacement:="79", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("CB:CB").Select

Selection.Replace What:="1", Replacement:="80", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("CC:CC").Select

Selection.Replace What:="1", Replacement:="81", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("CD:CD").Select

Selection.Replace What:="1", Replacement:="82", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("CE:CE").Select

Selection.Replace What:="1", Replacement:="83", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("CF:CF").Select

Selection.Replace What:="1", Replacement:="84", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("CG:CG").Select

Selection.Replace What:="1", Replacement:="85", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("CH:CH").Select

Selection.Replace What:="1", Replacement:="86", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("CI:CI").Select

Selection.Replace What:="1", Replacement:="87", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("CJ:CJ").Select

Selection.Replace What:="1", Replacement:="88", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("CK:CK").Select

Selection.Replace What:="1", Replacement:="89", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("CL:CL").Select

Selection.Replace What:="1", Replacement:="90", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("CM:CM").Select

Selection.Replace What:="1", Replacement:="91", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("CN:CN").Select

Selection.Replace What:="1", Replacement:="92", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("CO:CO").Select

Selection.Replace What:="1", Replacement:="93", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("CP:CP").Select

Selection.Replace What:="1", Replacement:="94", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("CQ:CQ").Select

Selection.Replace What:="1", Replacement:="95", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("CR:CR").Select

Selection.Replace What:="1", Replacement:="96", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("CS:CS").Select

Selection.Replace What:="1", Replacement:="97", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("CT:CT").Select

Selection.Replace What:="1", Replacement:="98", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("CU:CU").Select

Selection.Replace What:="1", Replacement:="99", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("CV:CV").Select

Selection.Replace What:="1", Replacement:="100", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("CW:CW").Select

Selection.Replace What:="1", Replacement:="101", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("CX:CX").Select

Selection.Replace What:="1", Replacement:="102", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("CY:CY").Select

Selection.Replace What:="1", Replacement:="103", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("CZ:CZ").Select

Selection.Replace What:="1", Replacement:="104", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("DA:DA").Select

Selection.Replace What:="1", Replacement:="105", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("DB:DB").Select

Selection.Replace What:="1", Replacement:="106", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("DC:DC").Select

Selection.Replace What:="1", Replacement:="107", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("DD:DD").Select

Selection.Replace What:="1", Replacement:="108", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("DE:DE").Select

Selection.Replace What:="1", Replacement:="109", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("DF:DF").Select

Selection.Replace What:="1", Replacement:="110", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("DG:DG").Select

Selection.Replace What:="1", Replacement:="111", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("DH:DH").Select

Selection.Replace What:="1", Replacement:="112", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("DI:DI").Select

Selection.Replace What:="1", Replacement:="113", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("DJ:DJ").Select

Selection.Replace What:="1", Replacement:="114", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("DK:DK").Select

Selection.Replace What:="1", Replacement:="115", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("DL:DL").Select

Selection.Replace What:="1", Replacement:="116", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("DM:DM").Select

Selection.Replace What:="1", Replacement:="117", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("DN:DN").Select

Selection.Replace What:="1", Replacement:="118", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("DO:DO").Select

Selection.Replace What:="1", Replacement:="119", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("DP:DP").Select

Selection.Replace What:="1", Replacement:="120", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("DQ:DQ").Select

Selection.Replace What:="1", Replacement:="121", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("DR:DR").Select

Selection.Replace What:="1", Replacement:="122", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("DS:DS").Select

Selection.Replace What:="1", Replacement:="123", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("DT:DT").Select

Selection.Replace What:="1", Replacement:="124", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("DU:DU").Select

Selection.Replace What:="1", Replacement:="125", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("DV:DV").Select

Selection.Replace What:="1", Replacement:="126", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("DW:DW").Select

Selection.Replace What:="1", Replacement:="127", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("DX:DX").Select

Selection.Replace What:="1", Replacement:="128", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("DY:DY").Select

Selection.Replace What:="1", Replacement:="129", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("DZ:DZ").Select

Selection.Replace What:="1", Replacement:="130", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("EA:EA").Select

Selection.Replace What:="1", Replacement:="131", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("EB:EB").Select

Selection.Replace What:="1", Replacement:="132", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("EC:EC").Select

Selection.Replace What:="1", Replacement:="133", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("ED:ED").Select

Selection.Replace What:="1", Replacement:="134", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("EE:EE").Select

Selection.Replace What:="1", Replacement:="135", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("EF:EF").Select

Selection.Replace What:="1", Replacement:="136", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("EG:EG").Select

Selection.Replace What:="1", Replacement:="137", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("EH:EH").Select

Selection.Replace What:="1", Replacement:="138", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("EI:EI").Select

Selection.Replace What:="1", Replacement:="139", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("EJ:EJ").Select

Selection.Replace What:="1", Replacement:="140", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("EK:EK").Select

Selection.Replace What:="1", Replacement:="141", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("EL:EL").Select

Selection.Replace What:="1", Replacement:="142", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("EM:EM").Select

Selection.Replace What:="1", Replacement:="143", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("EN:EN").Select

Selection.Replace What:="1", Replacement:="144", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("EO:EO").Select

Selection.Replace What:="1", Replacement:="145", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("EP:EP").Select

Selection.Replace What:="1", Replacement:="146", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("EQ:EQ").Select

Selection.Replace What:="1", Replacement:="147", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("ER:ER").Select

Selection.Replace What:="1", Replacement:="148", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("ES:ES").Select

Selection.Replace What:="1", Replacement:="149", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("ET:ET").Select

Selection.Replace What:="1", Replacement:="150", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("EU:EU").Select

Selection.Replace What:="1", Replacement:="151", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("EV:EV").Select

Selection.Replace What:="1", Replacement:="152", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("EW:EW").Select

Selection.Replace What:="1", Replacement:="153", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("EX:EX").Select

Selection.Replace What:="1", Replacement:="154", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("EY:EY").Select

Selection.Replace What:="1", Replacement:="155", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("EZ:EZ").Select

Selection.Replace What:="1", Replacement:="156", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("FA:FA").Select

Selection.Replace What:="1", Replacement:="157", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("FB:FB").Select

Selection.Replace What:="1", Replacement:="158", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("FC:FC").Select

Selection.Replace What:="1", Replacement:="159", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("FD:FD").Select

Selection.Replace What:="1", Replacement:="160", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("FE:FE").Select

Selection.Replace What:="1", Replacement:="161", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("FF:FF").Select

Selection.Replace What:="1", Replacement:="162", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("FG:FG").Select

Selection.Replace What:="1", Replacement:="163", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("FH:FH").Select

Selection.Replace What:="1", Replacement:="164", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("FI:FI").Select

Selection.Replace What:="1", Replacement:="165", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("FJ:FJ").Select

Selection.Replace What:="1", Replacement:="166", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("FK:FK").Select

Selection.Replace What:="1", Replacement:="167", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("FL:FL").Select

Selection.Replace What:="1", Replacement:="168", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("FM:FM").Select

Selection.Replace What:="1", Replacement:="169", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("FN:FN").Select

Selection.Replace What:="1", Replacement:="170", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("FO:FO").Select

Selection.Replace What:="1", Replacement:="171", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("FP:FP").Select

Selection.Replace What:="1", Replacement:="172", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("FQ:FQ").Select

Selection.Replace What:="1", Replacement:="173", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("FR:FR").Select

Selection.Replace What:="1", Replacement:="174", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("FS:FS").Select

Selection.Replace What:="1", Replacement:="175", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("FT:FT").Select

Selection.Replace What:="1", Replacement:="176", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("FU:FU").Select

Selection.Replace What:="1", Replacement:="177", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("FV:FV").Select

Selection.Replace What:="1", Replacement:="178", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("FW:FW").Select

Selection.Replace What:="1", Replacement:="179", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("FX:FX").Select

Selection.Replace What:="1", Replacement:="180", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("FY:FY").Select

Selection.Replace What:="1", Replacement:="181", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("FZ:FZ").Select

Selection.Replace What:="1", Replacement:="182", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("GA:GA").Select

Selection.Replace What:="1", Replacement:="183", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("GB:GB").Select

Selection.Replace What:="1", Replacement:="184", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("GC:GC").Select

Selection.Replace What:="1", Replacement:="185", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("GD:GD").Select

Selection.Replace What:="1", Replacement:="186", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("GE:GE").Select

Selection.Replace What:="1", Replacement:="187", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("GF:GF").Select

Selection.Replace What:="1", Replacement:="188", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("GG:GG").Select

Selection.Replace What:="1", Replacement:="189", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("GH:GH").Select

Selection.Replace What:="1", Replacement:="190", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("GI:GI").Select

Selection.Replace What:="1", Replacement:="191", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("GJ:GJ").Select

Selection.Replace What:="1", Replacement:="192", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("GK:GK").Select

Selection.Replace What:="1", Replacement:="193", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("GL:GL").Select

Selection.Replace What:="1", Replacement:="194", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("GM:GM").Select

Selection.Replace What:="1", Replacement:="195", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("GN:GN").Select

Selection.Replace What:="1", Replacement:="196", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("GO:GO").Select

Selection.Replace What:="1", Replacement:="197", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("GP:GP").Select

Selection.Replace What:="1", Replacement:="198", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("GQ:GQ").Select

Selection.Replace What:="1", Replacement:="199", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

Columns("GR:GR").Select

Selection.Replace What:="1", Replacement:="200", LookAt:=xlPart, _

        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

        ReplaceFormat:=False

 

        End Sub

  评论这张
 
阅读(1210)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017