vba返回Excel多个不连续选择区域的总行数

如何通过VBA，返回Excel中已经选择的多个不连续的选择区域的行的数量？ 代码如下，希望对您有所帮助。

①假定选择区域

Ａ：假定您已通过鼠标在Excel中选择好了多个不连续的选择区域；

Ｂ：假定您已使用如下代码在Excel中选择好了多个不连续的选择区域：

Dim MyArea1, MyArea2, MyArea3 As Range

Set MyArea1 = Range(Cells(1, 1), Cells(3, 3))

Set MyArea2 = Range(Cells(6, 1), Cells(9, 3))

Set MyArea3 = Range(Cells(12, 1), Cells(13, 3))

Application.Union(MyArea1, MyArea2, MyArea3).Select

②通过如下代码返回多个非连续区域的行的总数

Dim I, MyRowTotal

For I = 1 To Selection.Areas.Count

MyRowTotal = MyRowTotal + Selection.Areas(I).Rows.Count

Next

MsgBox MyRowTotal

通过如上代码，将多个不连续选择区域的总行数，保存在MyRowTotal变量中，这样，我们就可以在代码中的任何一个地方，调用此MyRowTotal的数据