VBA 代码那错了? 请指点

[复制链接]
查看11 | 回复1 | 2010-4-26 14:04:28 | 显示全部楼层 |阅读模式
x = Sheets("东").Cells(6500.5).End(xlUp).Row
x = Sheets("东").Cells(6500,5).End(xlUp).Row
回复

使用道具 举报

千问 | 2010-4-26 14:04:28 | 显示全部楼层
我看,问题应当在这句的位置上:Sheets("记").Cells(6, 2).Select因为执行此句之前,当前工作表是前面的 Sheets("东").Select所以要在 Sheets("记").Cells(6, 2).Select 之前加一句:Sheets("记").Select使得 Sheets("记") 变成当前工作表,然后才能对其中的单元格 Cells(6, 2) 进行 Select 操作。这样的话,Selection.PasteSpecial …… 后面那句 Sheets("记").Select 就可以删除了。GoodLuck!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行