<em>Excel</em> 我怎么用不好VBA中的<em>Union</em

n = Worksheetfunction.CountA(某工作表.range("A:A"))

Set rng = Union(rng, 某工作表.Rows(p)

改这2句试试。

请参考https://zhidao.baidu.com/question/72625099.html
用抄for each r in rx.Cellls next实现，r就是袭Union中的每一个单元zd格
For Each r In rx.Cells
Debug.Print r.Address
Next

这样的内容，查查帮助就好了
set rng=union(range("a1:b6") ,[c24:j9],cells(99,1).resize(5,6))