定義兩個範圍，然後加入它們

Question

我目前想知道如何選擇VBA中的範圍，值的範圍，並希望有人可以在下面的一段代碼中提供幫助。

eoline = 50 
first = 5 
For i = 0 To eoline 
multi = 2 * i + 1 
a = Cells(first + 1, 1).Select 
s1 = Range(Selection, Selection.End(xlDown)).select %select 1st range of values 
b = Cells(first + 1, 2 * (i + 1)).Select 
s2 = Range(Selection, Selection.End(xlDown)).select %select 2nd range of values 
next i  

其實我想選擇和複製S1 S2 &，我已經嘗試過失敗

myval = Union(s1, s2).select 
selection.copy 

感謝

Answer 1

像這樣的事情

1. 使用Set當您創建範圍
2. 不要使用Select。
3. 當設置範圍尋找自下而上，而不是選擇向下（這將在數據差距停止，如果你有一個）

代碼

Dim rng1 As Range 
Dim rng2 As Range 
Dim rng3 As Range 

Dim lngCnt As Long 
Dim lngCn2 As Long 

lngCnt = 5 
lngCnt2 = 2 


Set rng1 = Range(Cells(5, 1), Cells(Rows.Count, 1).End(xlUp)) 

Set rng1 = Range(Cells(lngCnt + 1, 1), Cells(Rows.Count, 1).End(xlUp)) 
Set rng2 = Range(Cells(lngCnt + 1, 2 * (lngCnt2 + 1)), Cells(Rows.Count, 2 * (lngCnt2 + 1)).End(xlUp)) 

Set rng3 = Union(rng1, rng2) 

Answer 2

我找到了解決辦法。下面是完整的解決我的問題：

Dim s1, s2, myval As Range 
eoline = 50 
first = 5 

multi = 2 * i + 1 
a = Cells(first + 1, 1).Select 
Set s1 = Range(Selection, Selection.End(xlDown)) 
b = Cells(first + 1, 2 * (i + 1)).Select 
Set s2 = Range(Selection, Selection.End(xlDown)) 
Set myval = Union(s1, s2) 
myval.Select