Hàm Range

[nationalfox]

Các chiến hữu cho hỏi hàm Range trong Excel 2010 chỉ cho chứa tối đa 32 field thôi (VD: Range("A1:A6"; "A10:A20";...;A1100:A1120) đến 32 trường thôi). Tôi muốn add vào nhiều hơn nhưng chưa co cách?
Mục đích Macro: Lựa chọn nhiều dòng ở các vị trí khác nhau sau đó sẽ xóa các dòng này.

 

[ndu96081631]

Các chiến hữu cho hỏi hàm Range trong Excel 2010 chỉ cho chứa tối đa 32 field thôi (VD: Range("A1:A6"; "A10:A20";...;A1100:A1120) đến 32 trường thôi). Tôi muốn add vào nhiều hơn nhưng chưa co cách?
Mục đích Macro: Lựa chọn nhiều dòng ở các vị trí khác nhau sau đó sẽ xóa các dòng này.

Có thể dùng Union kết hợp với vòng lập, muốn bao nhiêu mà chẳng được
Ví dụ:

Sub Test()
  Dim i As Long, Rng As Range, rngAddr()
  rngAddr = Array("$A$1:$A$3", " $A$5:$A$7", " $A$9:$A$11", " $A$13:$A$15", " $A$17:$A$19", _
              " $A$21:$A$23", " $A$25:$A$27", " $A$29:$A$31", " $A$33:$A$35", " $A$37:$A$39", _
              " $A$41:$A$43", " $A$45:$A$47", " $A$49:$A$51", " $A$53:$A$55", " $A$57:$A$59", _
              " $A$61:$A$63", " $A$65:$A$67", " $A$69:$A$71", " $A$73:$A$75", " $A$77:$A$79", _
              " $A$81:$A$83", " $A$85:$A$87", " $A$89:$A$91", " $A$93:$A$95", " $A$97:$A$99", _
              " $A$101:$A$103", " $A$105:$A$107", " $A$109:$A$111", " $A$113:$A$115", " $A$117:$A$119", _
              " $A$121:$A$123", " $A$125:$A$127", " $A$129:$A$131", " $A$133:$A$135", " $A$137:$A$139", _
              " $A$141:$A$143", " $A$145:$A$147", " $A$149:$A$151", " $A$153:$A$155", " $A$157:$A$159", _
              " $A$161:$A$163", " $A$165:$A$167", " $A$169:$A$171", " $A$173:$A$175", " $A$177:$A$179", _
              " $A$181:$A$183", " $A$185:$A$187", " $A$189:$A$191", " $A$193:$A$195", " $A$197:$A$199")
  
  Set Rng = Range(rngAddr(0))
  For i = 1 To UBound(rngAddr)
    Set Rng = Union(Rng, Range(rngAddr(i)))
  Next
  Rng.Select
End Sub

Range 50 Areas rời rạc đấy