提示运行错误13 类型不匹配怎样解决

只看楼主
收藏
回复

风带走一片树叶
初涉江湖
1

主要功能就是表格的一列有很多数据，并且中间有空格，我想直接能够跳到这列的最后一
如果没有空格，ctrl+下箭头就能达到这个功能
这段代码功能都达到了，就是会弹出提示运行错误13 类型不匹配
请哪位大神帮忙看看
Sub a()
Set 单元格 = Cells(Rows.Count, 2).End(xlUp).Activate
End Sub

贴吧用户_QNQGDtW
后起之秀
7

.activate去掉试试

不感兴趣

开通SVIP免广告

baifandu2013
武林新贵
8

设置参数和激活单元格是两个动作，要分两步：
Set 单元格 = Cells(Rows.Count, 2).End(xlUp)
单元格.Activate
单元格可以直接激活，并不需要赋值给参数，因此上面的两步可以合并：
Cells(Rows.Count, 2).End(xlUp).Activate

Excel搭档
人中龙凤
11

用select试下

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

贴吧页面意见反馈
违规贴吧举报反馈通道
贴吧违规信息处理公示

4回复贴，共1页

<<返回vba吧

分享到:

日	一	二	三	四	五	六