find包含另一个范围的最短矩形范围

假设我有以下范围：

$A$2:$C$3,$D$4:$E$5,$G$7 

有一些方法的组合，给了我包含这个最短的矩形范围？ 在我的例子中，答案应该是：

 $A$2:$G$7 

OBS：我正在使用VSTO 2013与VB.NET构buildExcel 2013的加载项

谢谢！

Answer 1

您可以使用非连续范围的.Areas 。

 Dim a, r1 As Long, c1 As Long, r2 As Long, c2 As Long, rng As Range Range("$A$2:$C$3,$D$4:$E$5,$G$7").Select Range("$A$2:$G$7").Select r1 = Rows.Count: r2 = 1 c1 = Columns.Count: c2 = 1 With Range("$A$2:$C$3,$D$4:$E$5,$G$7") For Each rng In .Areas With rng If .Cells(1, 1).Row < r1 Then r1 = .Cells(1, 1).Row If .Cells(1, 1).Column < c1 Then c1 = .Cells(1, 1).Column If .Cells(.Rows.Count, 1).Row > r2 Then r2 = .Cells(.Rows.Count, 1).Row If .Cells(1, .Columns.Count).Column > c2 Then c2 = .Cells(1, .Columns.Count).Column End With Next rng End With Debug.Print Range(Cells(r1, c1), Cells(r2, c2)).Address(0, 0) 

我不完全确定如何适应VB.Net/VSTO项目，但这是如何在VBA中接近的问题。 该方法应该很容易转移到VB.Net中的Excel对象。