找回密码
 加入
搜索
查看: 2431|回复: 8

[效率算法] 这样的代码如何写得更简洁些

  [复制链接]
发表于 2012-5-21 23:10:58 | 显示全部楼层 |阅读模式
 .Columns(1).Cells.Replace("A","甲")
.Columns(1).Cells.Replace("B","乙")
.Columns(1).Cells.Replace("C","丙")
.Columns(1).Cells.Replace("D","丁")
.Columns(1).Cells.Replace("E","戊")
.Columns(1).Cells.Replace("F","己")
.Columns(1).Cells.Replace("G","庚")
数组?
发表于 2012-5-21 23:32:52 | 显示全部楼层
这个码不懂  
看后面的应该可以用  FOR
发表于 2012-5-21 23:49:57 | 显示全部楼层
Local $a[2][7] = [["A","B","C","D","E","F","G"],["甲","乙","丙","丁","戊","己","庚"]]
For $i = 0 To 6
        .Columns(1).Cells.Replace($a[0][$i],$a[1][$i])
Next

这个怎么样
发表于 2012-5-22 06:49:13 | 显示全部楼层
学习了,谢谢...
发表于 2012-5-22 09:41:56 | 显示全部楼层
回复 3# 1007236046
这样更简洁!
Local $a[7] = ["甲","乙","丙","丁","戊","己","庚"]
For $i = 0 To 6          
     .Columns(1).Cells.Replace(Chr($i+65), $a[$i])
Next

评分

参与人数 1金钱 +30 贡献 +3 收起 理由
xms77 + 30 + 3 真的很简洁

查看全部评分

发表于 2012-5-22 09:51:22 | 显示全部楼层
回复  1007236046
这样更简洁!
user3000 发表于 2012-5-22 09:41


这个更简洁,学习了!
发表于 2012-5-22 12:44:58 | 显示全部楼层
回复 5# user3000
学习了,果然更简洁!
 楼主| 发表于 2012-5-22 21:11:28 | 显示全部楼层
谢谢楼上各位!
 楼主| 发表于 2012-5-22 21:15:07 | 显示全部楼层
回复 5# user3000


    因为刚好是abcd。。。所以可行,不错。
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-1 07:58 , Processed in 0.094357 second(s), 28 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表