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 (1 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