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