Các cao nhân giúp em tìm dòng cuối cùng mà k chứa dữ liệu bằng code vba (3 người xem)

[Mimi#]

Em muốn tìm câu lệnh chỉ ra đc dòng cuối cùng không chứa dữ liệu của sheet ạ, tức là đáy bảng ạ ai giúp em với

 

[bebo021999]

Nếu không xác định cột nào có ô chưa dữ liệu cuối cùng:

ActiveSheet.UsedRange.SpecialCells(xlLastCell).Row + 1

 

[Mimi#]

Nếu không xác định cột nào có ô chưa dữ liệu cuối cùng:

ActiveSheet.UsedRange.SpecialCells(xlLastCell).Row + 1

Không ạ, ý em muốn hỏi về việc câu lệnh có thể tìm đuợc dòng cuối cùng của sheet luôn ạ , và đương nhiên dòng cuối sheet k hay có chứa dữ liệu đều được. Bởi em muốn tạo vòng lặp for next từ 1 đến vô cùng ạ

 

[cantl]

Không ạ, ý em muốn hỏi về việc câu lệnh có thể tìm đuợc dòng cuối cùng của sheet luôn ạ , và đương nhiên dòng cuối sheet k hay có chứa dữ liệu đều được. Bởi em muốn tạo vòng lặp for next từ 1 đến vô cùng ạ

Đoán mò thế lày: range("anh:anh").rows.count

 

[SA_DQ]

Chủ bài đăng: Đọc bài tổng quan về phương thức FIND() được treo trên đầu của đề mục "Lập trình. . ."

 

[VetMini]

Sao quý vị đoán hay thật. Quả là cao nhơn. Thường nhơn như tôi thì hiểu "dòng cuối cùng không chứa dữ liệu của sheet, tức là đáy bảng" kiểu khác:
dongCuoi = rows.count
code dò ngược lên trên cho đến khi gặp dòng trống

code dò ngược:
For dongCuoi = dongCuoi To 1 Step -1
IF Application.COUNTA(Range(dongCuoi & ":" & dongCuoi)) <= 0 Then Exit For
Next
If dongCuoi <= 0 Then ' no bloody good

 

[HeSanbi]

@Mimi# Bạn có thể tham khảo sử dụng phương thức Find của Range

(Đối số xlFormulas và xlValues tương đương tìm có công thức và giá trị)

Function LastCell(Optional sheet As Worksheet) As Range
  On Error Resume Next
  If sheet Is Nothing Then Set sheet = ActiveSheet
  Set LastCell = sheet.Cells.Find("*", After:=sheet.Cells(1, 1), LookIn:=xlFormulas, LookAt:=xlWhole, SearchDirection:=xlPrevious, SearchOrder:=xlByRows)
  On Error GoTo 0
End Function

 

[bebo021999]

Không ạ, ý em muốn hỏi về việc câu lệnh có thể tìm đuợc dòng cuối cùng của sheet luôn ạ , và đương nhiên dòng cuối sheet k hay có chứa dữ liệu đều được. Bởi em muốn tạo vòng lặp for next từ 1 đến vô cùng ạ

dòng cuối

= Rows.Count

= 1048576

Nếu bạn muốn tạo vòng lặp:

For i=1 to Rows.Count

Thì sáng mai quay lại đây nói chuyện tiếp nhé.

 

[Mimi#]

dòng cuối

= Rows.Count

= 1048576

Nếu bạn muốn tạo vòng lặp:

For i=1 to Rows.Count

Thì sáng mai quay lại đây nói chuyện tiếp nhé.

dòng cuối

= Rows.Count

= 1048576

Nếu bạn muốn tạo vòng lặp:

For i=1 to Rows.Count

Thì sáng mai quay lại đây nói chuyện tiếp nhé.

Vâng thì đúng là em đang tạo for i=1 to rows.count ạ , làm vậy có hợp lí và ổn không mà bạn nói chuỵn căng quá

 

[bebo021999]

Vâng thì đúng là em đang tạo for i=1 to rows.count ạ , làm vậy có hợp lí và ổn không mà bạn nói chuỵn căng quá

Ahh, quay lại rồi à bạn, máy xử lý xong chưa?
Mình nói bạn "sáng mai quay lại", có ý đùa thôi, ý là để biến i loop từ 1 đến 1048576 thì mất cả ngày đó
Dĩ nhiên mình hiểu là biến i chắc chắn không loop hết đến 1 triệu, và sẽ có điều kiện gì đó gài bên trong để thoát ra khoải vòng.
Nếu có thể, thì bạn hãy share file mẫu và giải thích bạn cần làm gì và kết quả muốn có là gì nhé.

 

[Mimi#]

Ahh, quay lại rồi à bạn, máy xử lý xong chưa?
Mình nói bạn "sáng mai quay lại", có ý đùa thôi, ý là để biến i loop từ 1 đến 1048576 thì mất cả ngày đó
Dĩ nhiên mình hiểu là biến i chắc chắn không loop hết đến 1 triệu, và sẽ có điều kiện gì đó gài bên trong để thoát ra khoải vòng.
Nếu có thể, thì bạn hãy share file mẫu và giải thích bạn cần làm gì và kết quả muốn có là gì nhé.

Vâng ạ cám ơn bạn nhièo nha mình xử lí được rồi , mình có cho điều kiện để thoát vòng lặp hihi

 

[A HOANG 620]

bác nào cao kiến chỉ giúp em. Để tìm dòng cuối trong 1 bảng (table) mà có chứa giá trị(không tính dòng rỗng) thì mình dùng cú pháp sao ạ? em cám ơn

 

[HeSanbi]

Sửa mã ở trên sheet.Cells thành Table.DataBodyRange

 

[A HOANG 620]

Sửa mã ở trên sheet.Cells thành Table.DataBodyRange

dạ em cám ơn anh HeSanbi

 

[A HOANG 620]

Sửa mã ở trên sheet.Cells thành Table.DataBodyRange

anh cho em hỏi search box filter bị giật màn hình quá mình cải thiện giật mình nên làm thế nào anh? anh giúp em với

 

[Minh Tam 2024]

Em muốn tìm câu lệnh chỉ ra đc dòng cuối cùng không chứa dữ liệu của sheet ạ, tức là đáy bảng ạ ai giúp em với

Bạn dùng Hàm này .

Function LastEmptyRowInRange(rng As Range) As Long
On Error Resume Next
LastEmptyRowInRange = rng.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
If Err.Number <> 0 Then LastEmptyRowInRange = 1
End Function

trên excel dùng công thức này =LastEmptyRowInRange(A1:A10000) ( Ví dụ A1:A10000 tự thay đổi )

 

[bebo021999]

Bạn dùng Hàm này .



trên excel dùng công thức này =LastEmptyRowInRange(A1:A10000) ( Ví dụ A1:A10000 tự thay đổi )

Dùng Find method để tìm kiếm từ dưới lên đôi khi kết quả không đúng. Ví dụ: giả sử ô cuối cùng là V1000.
Tìm kiếm lần đầu thì OK.
Sau đó, delete ô này đi.
Khi tìm kiếm lại thì kết quả trả về vẫn là ô V1000 (do delete nhưng dấu vết vẫn còn)

 

[Minh Tam 2024]

Dùng Find method để tìm kiếm từ dưới lên đôi khi kết quả không đúng. Ví dụ: giả sử ô cuối cùng là V1000.
Tìm kiếm lần đầu thì OK.
Sau đó, delete ô này đi.
Khi tìm kiếm lại thì kết quả trả về vẫn là ô V1000 (do delete nhưng dấu vết vẫn còn)

Mình thử Delete nó vẫn đúng