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

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

level 1

风带走一片树叶楼主

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

2023年02月10日 01点02分 1

level 7

贴吧用户_QNQGDtW

.activate去掉试试

2023年02月10日 03点02分 2

level 8

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

2023年02月10日 07点02分 3

level 11

用select试下

2023年02月11日 04点02分 4

Excel搭档

楼上说的对，不能赋值的同时进行激活

2023年02月11日 04点02分

1