关于offset以后能否赋值给一个range变量

酱油章鱼大丸子

求教！！！
功能是想实现选择区域去表头
代码如下：
Sub 去表头选择()
Dim tb1, tb2, tb3 As Range
Set tbl = ActiveCell.CurrentRegion
tbl.Select
Set tb2 = tbl.Offset(1, 0)
Set tb3 = Intersect(tb1, tb2)
tb3.Select
'Set tb3 = Intersect(ActiveCell.CurrentRegion, ActiveCell.CurrentRegion.Offset(0, 1))
'tb3.Select

End Sub


提示信息是要求对象，调试语句是黄色那一句
如果换成绿色的代码就是可以运行的，但是实在想不明白为什么intersect里面用range变量不行？很疑惑，不知道是哪里出了问题

yuwd3

tb1,tbl要分清。

chaohuahch

yuwd3 发表于 2018-9-2 11:49
tb1,tbl要分清。

眼神是真的好。棒棒哒。

酱油章鱼大丸子

yuwd3 发表于 2018-9-2 11:49
tb1,tbl要分清。

眼神太好了，编辑器里面的字体1和l 傻傻分不清楚。改完以后运行就没有问题了。多谢多谢！