Giúp mình vùng chọn dữ liệu macro

Liên hệ QC

kscongtrinh

Thành viên mới
Tham gia
11/7/16
Bài viết
35
Được thích
1
Mình dặt con trỏ tại hàng dữ liệu cần lấy tính từ con trỏ đặt trở xuống hết vùng cần có dữ liệu ( có thể cho hiện bảng config nếu dữ liệu từ trên xuống dưới ở dữa có khoảng dòng trống , cho config số dòng trống bỏ qua để đếm và chọn dòng có dữ liệu nó lấy , tránh trường hợp mất không quét hết dữ liệu ) -> kết quả bôi chọn dữ liệu.
GIUP NHANH.png
 
Mình dặt con trỏ tại hàng dữ liệu cần lấy tính từ con trỏ đặt trở xuống hết vùng cần có dữ liệu ( có thể cho hiện bảng config nếu dữ liệu từ trên xuống dưới ở dữa có khoảng dòng trống , cho config số dòng trống bỏ qua để đếm và chọn dòng có dữ liệu nó lấy , tránh trường hợp mất không quét hết dữ liệu ) -> kết quả bôi chọn dữ liệu.
View attachment 202575
Thử:
PHP:
Sub abc()
    Dim LR&
    With Sheets("SC1 CHECKING")
        LR = .Range("A" & Rows.Count).End(xlUp).Row
         .Range("B15:D" & LR).Select
    End With
End Sub

Hoặc:
PHP:
Sub abc2()
    Dim LR&
    With Sheets(1)
        LR = .Range("A" & Rows.Count).End(xlUp).Row
        .Range("B15:D" & LR).SpecialCells(xlCellTypeConstants, 23).Select
    End With
End Sub
 
Lần chỉnh sửa cuối:
Upvote 0
Thử:
PHP:
Sub abc()
    Dim LR&
    With Sheets("SC1 CHECKING")
        LR = .Range("A" & Rows.Count).End(xlUp).Row
         .Range("B15:D" & LR).Select
    End With
End Sub

Hoặc:
PHP:
Sub abc2()
    Dim LR&
    With Sheets(1)
        LR = .Range("A" & Rows.Count).End(xlUp).Row
        .Range("B15:D" & LR).SpecialCells(xlCellTypeConstants, 23).Select
    End With
End Sub
à ý mình nếu con trỏ đặt cột G , hay cột bất kỳ cơ sở dữ liệu có thì mình phải đổi trong code.
Bài đã được tự động gộp:

Dữ liệu không liền mạch có dòng trống , thì mình config số dòng trống .
Ví dụ config số dòng trống là 2, thì nó đếm dòng trống lớn > 2 mặc định kết điểm cuối vùng chọn đó hết dữ liệu cần chọn . Còn nếu dòng trống<2 thì dưới dòng trống là dòng dữ liệu nó chọn tiếp, tiếp tục kiểm tra
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom