[Excel/VBA]如何合并两个range？

[supertoto]

现在需要操作n行数据，根据条件判断出了第几行，最后将m（m<n)行隐藏。现在不知道如何添加了第一个range后将多个range合并到一个range？

请各位高手指点。

[dunkel]

可以使用 Application.Union(Range1, Range2, ...) 吧

[IDqq]

这样：
Range("A2:B2").Select
With Selection
.MergeCells = True
End With

[arden1019]

Union 方法
参阅应用于示例特性返回两个或多个区域的合并区域。

expression.Union(Arg1, Arg2, ...)
expression 可选。该表达式返回一个 Application 对象。

Arg1, Arg2, ... Range 类型，必需。必须至少指定两个 Range 对象。

示例
本示例以公式“=RAND()”填充两个命名区域（“Range1”和“Range2”）的合并区域。

Worksheets("Sheet1").Activate
Set bigRange = Application.Union(Range("Range1"), Range("Range2"))
bigRange.Formula = "=RAND()"

多看看excel帮助~