如何通过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的数据。