欄位選取問題

funnydisk

有二個非連續欄位選取(A1,B1)，但資料B1長度多於A1
選取時，卻以A1為主，要如何以最長(B1)為主呢，謝謝

A1 B1
2    6
3  
      1
7   3
     5

Set a = Range(A1, Range("a65536").End(xlUp))
Set b = Range(B1, Range("a65536").End(xlUp))
Union(a, b).Select

Hsieh

回復 1# funnydisk

Set a = Range("A1", Range("a65536").End(xlUp))
Set b = Range("B1", Range("b65536").End(xlUp))
Union(a, b).Select

funnydisk

感謝Hsieh大的回覆，是我少打了""，如果是這個語法，只會選取到A1的7那個數字那列，不會包含B1的5，所以想要請教如何A1與B1有資料的都能選取到，謝謝

GBKEE

回復 3# funnydisk
是這樣嗎?

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim R As Integer
   
4.     R = IIf(Cells(Rows.Count, 1).End(xlUp).Row > Cells(Rows.Count, 2).End(xlUp).Row, Cells(Rows.Count, 1).End(xlUp).Row, Cells(Rows.Count, 2).End(xlUp).Row)
   
5.     Range("a1:b" & R).Select
   
6. End Sub

複製代碼

funnydisk

回復 4# GBKEE


    感謝GBKEE大，這樣可以運行了，謝謝