Code chọn nhiều dòng cùng lúc (1 người xem)

[khuongvietphong]

Nhờ mọi người viết giúp em đoạn code để chọn cùng lúc được nhiều dòng. Cụ thể tại cột A em muốn chọn các ô : A3, A5 , A7 ... đến
A499 , tức là các ô có số thứ tự dòng là số lẻ nhưng trừ ô A1 ra. Em xin cảm ơn !

 

[giaiphap]

Nhờ mọi người viết giúp em đoạn code để chọn cùng lúc được nhiều dòng. Cụ thể tại cột A em muốn chọn các ô : A3, A5 , A7 ... đến
A499 , tức là các ô có số thứ tự dòng là số lẻ nhưng trừ ô A1 ra. Em xin cảm ơn !

Bạn dùng code này thử xem.

Sub GPE()
On Error Resume Next
Dim k As Range, s As Range, i As Integer
Set s = Range("A3")
For i = 5 To 499 Step 2
  Set k = Range("A" & i)
  Set s = Union(k, s)
Next i
s.Select
End Sub

 

[khuongvietphong]

Bạn dùng code này thử xem.

Sub GPE()
On Error Resume Next
Dim k As Range, s As Range, i As Integer
Set s = Range("A3")
For i = 5 To 499 Step 2
  Set k = Range("A" & i)
  Set s = Union(k, s)
Next i
s.Select
End Sub

Tuyệt vời . Em cảm ơn nhiều ạ. Tác giả giải thích giùm em câu lệnh này với : Set s = Union(k, s)

 

[giaiphap]

Tuyệt vời . Em cảm ơn nhiều ạ. Tác giả giải thích giùm em câu lệnh này với : Set s = Union(k, s)

Nối 2 vùng k và s lại với nhau (tương tự như chọn 2 vùng chọn cách xa nhau thì dùng Ctrl vậy, nhưng ở đây là nối 2 vùng lại chứ chưa chọn nghe).

 

[khuongvietphong]

Nối 2 vùng k và s lại với nhau (tương tự như chọn 2 vùng chọn cách xa nhau thì dùng Ctrl vậy, nhưng ở đây là nối 2 vùng lại chứ chưa chọn nghe).

Hi hi. Em hiểu rồi. Cảm ơn tác giả nhiều