请求建立宏的建议

Question

在Excel中，合并了A列的行，并且没有合并B列的行。现在我想编写一个宏来查找B列的行数，这些行对于A列中的相应值不是空白的（已合并）。

感谢您的帮助。

Answer 1

一些想法......

'make sure to get the top-most merged cell
Set rng = ActiveSheet.Range("D3").MergeArea.Cells(1)
Set ma = rng.MergeArea

Debug.Print rng.Address(), ma.Address(), _
            rng.Offset(0, 4).Resize(ma.Rows.Count, 1).Address()

Debug.Print Application.CountA(rng.Offset(0, 4) _
           .Resize(ma.Rows.Count, 1))

Answer 2

要构建宏，请转到Developer＆gt;录制宏并单击确定。按键或按钮以适合，当结果符合要求时，单击停止录制。