Chọn vùng dữ liệu tương ứng trong VBA (1 người xem)

[swalowbird]

Mình có vùng dữ liệu ở cột a ( vùng này có thể ở bất kỳ vị trí nào ở cột A)

Mình muốn chọn vùng tương ứng với cột A ở cột C ( như trong file đính kèm) ( như kiểu tịnh tiến ấy)

BÁC NÀO CÓ CODE ĐƠN GIẢN HIỆU QUẢ KHÔNG ? CHỶ EM CÁI

 

[phulien1902]

Mình có vùng dữ liệu ở cột a ( vùng này có thể ở bất kỳ vị trí nào ở cột A)

Mình muốn chọn vùng tương ứng với cột A ở cột C ( như trong file đính kèm) ( như kiểu tịnh tiến ấy)

BÁC NÀO CÓ CODE ĐƠN GIẢN HIỆU QUẢ KHÔNG ? CHỶ EM CÁI

Bạn thử:

Sub ABC()
    Dim LR As Long
    Dim Rng As Range
    LR = Range("a" & Rows.Count).End(xlUp).Row
    Set Rng = Range("A7:A" & LR)
    Rng.Offset(, 2).Select
End Sub

 

[thanhduc1986]

Sửa của bạn trên tý để phòng trường hợp dự liệu ko bắt đầu từ A7

Sub ABC()
    Dim LR, FR As Long
    Dim Rng1 As Range
     LR = Range("A" & Rows.Count).End(xlUp).Row    
     FR = Range("A" & LR).End(xlUp).Row
     Set Rng1 = Range(Cells(FR, 1), Cells(LR, 1))
     Rng1.Offset(, 2).Select 
ENd Sub

Cái này là trong trường hợp dữ liệu cột A có gián đoạn

Sub ABC()
    Dim LR, FR As Long
    Dim Rng1 As Range
    Dim Rng2 As Range
     LR = Range("A" & Rows.Count).End(xlUp).Row    
           Do
                    FR = Range("A" & LR).End(xlUp).Row
                    Set Rng2 = Range(Cells(FR, 1), Cells(LR, 1))
                    If Not Rng1 Is Nothing Then
                    Set Rng1 = Union(Rng1, Rng2)
                    Else
                         Set Rng1 = Range(Cells(FR, 1), Cells(LR, 1))
                    End If
                    Rng1.Offset(, 2).Select 
                    LR = Range("A" & FR).End(xlUp).Row
            Loop Until LR = 1
End Sub

Mới tập tành, mời mọi người góp ý ạ