2017-04-04 24 views
2

我的數據有10 +列,從那我想選擇三列和進一步格式這三列,但沒有。行不固定,所以我無法一次選擇所有這三列。 這裏是我想要做的選擇與動態行disctinct列

Dim lastrow As Long 
lastrow = Range("A" & Rows.Count).End(xlUp).Row 
Range("G2:H" & lastrow, "J2:J" & lastrow).Select 

但是,這是我選擇的列也是如此。 我想這也

Range("G2:H & lastrow, J2:J" &lastrow).select 

但是,這給了我的錯誤預期。

+0

要選擇哪些列? – user3598756

+0

列G,H和J. – Digvijay

回答

1
Intersect(Range("G:H, J:J"), Rows("2:" & lastrow)).Select 
+0

@Digvijay,你通過它了嗎? – user3598756

+1

是的,謝謝你選擇那些列,但是如果使用相交來選擇進一步的格式化會發生一些錯誤。 我將這些選定的列轉換爲數字格式使用 '與選擇 .numberformat =「0」' '.value = .value' 當我通常選擇列時它工作正常,但使用intersect創建'# NA'條目。 – Digvijay

+0

不連續的單元必須以不同於連續的單元來處理。但是,只要_original_的問題得到解決,就不要通過_new_問題來改變你的問題。由於我解決了_original_選擇問題,因此您可能需要將答案標記爲已接受。而對於_new_你應該發佈_new_問題。謝謝 – user3598756