Đây là những gì tôi đã làm ... từ none những điều trên làm việc (thời gian này có nghĩa là, đó là nguyên nhân gây ra buồn mã này được chạy đẹp thì tất cả các đột ngột xlCellTypeLastCell
hoàn toàn thất bại tôi.) Điều này sẽ chỉ làm việc nếu bạn mã hóa ô đầu tiên của vùng bạn muốn lấy ô cuối cùng ... ví dụ tôi đã dán các bảng dữ liệu vào một bảng gồm 12 - 40 cột và 60-90 hàng ... nhưng vì nó là một dán, nó luôn luôn bắt đầu trong tế bào A79 ...
Worksheets("Data_Import").Activate
Range("A79").CurrentRegion.Select
A = Selection.Rows.Count - 1
B = Selection.Columns.Count - 1
Selection.Offset(A, B).Resize(1, 1).Select
Set DataEnd = Selection
tôi cảm thấy buồn khi không sử dụng mát các tế bào đặc biệt chuyện, nhưng than ôi, nếu nó không hoạt động! thì tôi không thể sử dụng nó. : C
p.s. - Bạn cũng có thể ném vào một macro
ActiveSheet.Cells(Rows.Count, 1).End(xlUp).CurrentRegion.Select
thử: 'ActiveSheet.UsedRange' nhưng nó thường không hoạt động – Qbik