[求助]这段代码怎么运行不了

lgfhplh · 发表于 2006-8-15 02:05:00

Sub Macro1()
'
'Sheet2.Select
With Sheets("Sheet2")
.Range(Cells(6, 6), Cells(15, 6)).Select

Selection.Copy
End With
Sheets("Sheet3").Select
ActiveSheet.Paste

End Sub
请问，如果没有 'Sheet2.Select 这行语句,红色语句为什么运行不了。

该怎么写这个语句。谢谢

老鬼 · 发表于 2006-8-15 04:10:00

使用.Range(.Cells(6, 6), .Cells(15, 6)).Select或.RANGE("F6:F15").SELECT都可以

lgfhplh · 发表于 2006-8-15 05:59:00

如果没有 Sheet2.Select 语句

使用.Range(.Cells(6, 6), .Cells(15, 6)).Select或.RANGE("F6:F15").SELECT都不行啊

老鬼 · 发表于 2006-8-15 18:51:00

因为SHEET2必须要成为当前的表，里面的内容才可以COPY

帐号		自动登录	找回密码
密码			注册

群介绍
Excel中国官方交流群2群 (331511605)
Excel中国官方群 (243419633)
Office China for Exc (498717031)
Excel交流群(纯技术) (324568243)
Excel VBA (122204306)

主题相关群

地区相关群[您还没设置居住地]

[求助]这段代码怎么运行不了

群介绍
主题无相 (随机显示版	同地区群块其他地区)