您的位置：程序门 -> 其他开发语言 -> 其他开发语言

请教一个简单问题!excel的

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

请教一个简单问题!excel的[已结贴,结贴人:cctao]

发表于：2007-02-12 20:57:18 楼主

要用一个按钮,点之后,把c列除c1之外全复制到b列除b1之外

发表于：2007-02-12 21:40:141楼得分:0

按键触发下面这个模块.

sub commandbutton1_click（)
dim totalrow as long
totalrow = activesheet.usedrange.rows.count

for i = 2 to totalrow - 1
activesheet.range（ "b " & i).value = activesheet.range（ "a " & i).value
next

end sub

发表于：2007-02-12 21:54:122楼得分:0

发表于：2007-02-13 23:07:093楼得分:0

完全正确

发表于：2007-02-13 23:13:424楼得分:100

sub commandbutton1_click（)

activesheet.range（ "b2:b65536 ").value = activesheet.range（ "c2:c65536 ").value

end sub

发表于：2007-02-14 08:41:415楼得分:0

帮你顶

发表于：2007-02-14 11:44:366楼得分:0

for i = 2 to totalrow - 1
for i = 2 to totalrow

发表于：2007-02-16 09:14:057楼得分:0

leniz（leniz) （ ) 信誉：100 blog 2007-2-12 21:40:15 得分: 0

按键触发下面这个模块.

sub commandbutton1_click（)
dim totalrow as long
totalrow = activesheet.usedrange.rows.count

for i = 2 to totalrow - 1
activesheet.range（ "b " & i).value = activesheet.range（ "a " & i).value
next

end sub
...............................................................................
這個比較完整.

yigepure（no say i know) （ ) 信誉：165 blog 2007-02-13 23:13:42 得分: 0

sub commandbutton1_click（)

activesheet.range（ "b2:b65536 ").value = activesheet.range（ "c2:c65536 ").value

end sub

................................................................................
這個也是可以實現的,只不過相對簡單了

相對而言,還是第一個的比較好..

发表于：2007-02-16 12:23:418楼得分:0

顶！！
收藏！

发表于：2007-02-16 21:34:369楼得分:0

录制一下宏就行了

发表于：2007-02-27 23:30:1110楼得分:0

sub commandbutton1_click（)

activesheet.range（ "b2:b65536 ").value = activesheet.range（ "c2:c65536 ").value

end sub

支持这种方案。

to：mlb2729（闪亮ぁ瞬间)
您的判断正好反了。1楼的方案不如该方案简洁明了，而且循环的效率也成问题。
因此yigepure的方案比leniz（leniz)地要好。

to：liuyann（liuyann)
录制宏的结果（其代码的有效部分）其实和yigepure的方法是一致的，您只需要录制宏后，打开模块看一看就知道了。

发表于：2007-02-28 09:45:3211楼得分:0

下一篇：如何把outlook2000的联系人导入到outlook2003中
上一篇：word 字符串模式替换问题