rows内对象变量的写法

会飞的土豆宏宏

想请教一下，为什么代码运行到第三行的时候老报错？运行文件是下图

Sub dd()
   Set Rng = [a1]
    Set Rng = Union([a:a].SpecialCells(12), Rng)
    Rows(Rng(1) & ":" & Rng(1)).Select
End Sub

山菊花

下面一行代码中，Rng(1)引用的是单元格（A12）的值：
     Rows(Rng(1) & ":" & Rng(1)).Select
相当于：
     Rows(Rng(1).value & ":" & Rng(1).value).Select
因为A12为空，所以，代码结果为：
     Rows(":").Select
得到一个非法的单元格引用，所以出错。

如果想选定Rng(1)当前行，可将代码修改为：
     Rng(1).EntireRow.Select

会飞的土豆宏宏

大哥救救我卡了两天了

山菊花

rng(1)是什么内容？如果不是有效数字（行号），将出错。

会飞的土豆宏宏

山菊花 发表于 2022-11-17 19:51
rng(1)是什么内容？如果不是有效数字（行号），将出错。

RNG(1)选中的是数字单元格a12，即筛选条件下的第一个可见行

会飞的土豆宏宏

山菊花 发表于 2022-11-17 19:51
rng(1)是什么内容？如果不是有效数字（行号），将出错。

感谢大神的启发，已解决

会飞的土豆宏宏

山菊花 发表于 2022-11-18 09:17
下面一行代码中，Rng(1)引用的是单元格（A12）的值：
     Rows(Rng(1) & ":" & Rng(1)).Select
相当于： ...

谢谢大神。看了第一条答复，写了另一种写法Rows(rng(1).row).Select，能有效运行。
看了第二条答复理解透彻了。送花

会飞的土豆宏宏

会飞的土豆宏宏 发表于 2022-11-18 09:31
谢谢大神。看了第一条答复，写了另一种写法Rows(rng(1).row).Select，能有效运行。
看了第二条答复理解 ...

还是您的写法简洁