giúp đỡ code select nhiều range khác nhau (có quy luật)

[vietkid221992]

Xin chào các bác
nhờ các bác giúp đỡ.
em muốn xin code để select các range trong cột chẵn hoặc lẻ, ví dụ D3200, F3:F200, viết tay thì lâu quá ạ,
(em chỉ cần tầm 100 cột thôi)
em cảm ơn

 

[SA_DQ]

Ví dụ, mong bạn có thể tham khảo tí chút nào đó & vui nha:

Sub SelectColunms()
 Dim Rws As Long, Col As Integer, J As Long
 Dim Rng As Range

 Rws = Sheets("GPE").UsedRange.Rows.Count
 If Rws > 1 Then
    Col = MsgBox("Hay Chi Sô Chon Côt Bát Dâu:")
    Set Rng = Cells(1, Col).Resize(Rws)
    For J = 2+Col To 200 Step 2
        Set Rng = Union(Rng, Cells(1, J).Resize(Rws))
    Next J
 End If
 Rng.Select:                MsgBox Rng.Cells.Count
End Sub

 

[bebo021999]

Thử code này:

Option Explicit
Sub SelectEvenColumn()
Dim i&, rng As Range, u As Range
Set rng = Range("D1:GU1") ' dong dau tien cua vung muon chon
For i = 1 To rng.Columns.Count
    If i Mod 2 = 0 Then ' = 0=>chan, =1 => le
        If u Is Nothing Then
            Set u = rng.Range(Cells(1, i), Cells(200, i)) ' 200 = dong cuoi
        Else
            Set u = Union(u, rng.Range(Cells(1, i), Cells(200, i)))
        End If
    End If
Next
u.Select
End Sub

 

[vietkid221992]

cám ơn anh nhiều ạ,

Bài đã được tự động gộp: 28/10/22

Ví dụ, mong bạn có thể tham khảo tí chút nào đó & vui nha:

Sub SelectColunms()
 Dim Rws As Long, Col As Integer, J As Long
 Dim Rng As Range

 Rws = Sheets("GPE").UsedRange.Rows.Count
 If Rws > 1 Then
    Col = MsgBox("Hay Chi Sô Chon Côt Bát Dâu:")
    Set Rng = Cells(1, Col).Resize(Rws)
    For J = 2+Col To 200 Step 2
        Set Rng = Union(Rng, Cells(1, J).Resize(Rws))
    Next J
 End If
 Rng.Select:                MsgBox Rng.Cells.Count
End Sub

em cảm ơn ạ