这样的代码如何写得更简洁些

whoistop · 发表于 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

1007236046 · 发表于 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

这个怎么样

lxz · 发表于 2012-5-22 06:49:13

学习了,谢谢...

user3000 · 发表于 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

fpquenya · 发表于 2012-5-22 09:51:22

回复 1007236046
这样更简洁!
user3000 发表于 2012-5-22 09:41

这个更简洁,学习了!

xms77 · 发表于 2012-5-22 12:44:58

回复 5# user3000
学习了，果然更简洁！

whoistop · 发表于 2012-5-22 21:11:28

谢谢楼上各位！

whoistop · 发表于 2012-5-22 21:15:07

回复 5# user3000

因为刚好是abcd。。。所以可行，不错。

		自动登录	找回密码
密码			加入

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

相关帖子

评分