Tìm vị trí dòng đầu tiên có giá trị bằng rỗng bằng VBA (1 người xem)

[onecry]

Chào các anh chị
Em có vấn đề nhỏ như này nhưng seach cụ google cả buổi sáng chưa ra.

Ví dụ:

Em muốn tìm vị trí dòng cuối cùng của cột chứa dữ liệu, em có thể dùng code như này
(trong file ví dụ là dòng 14)

Dim dong_cuoi As Long
Dong_cuoi = Sheet1.Range("b" & Rows.Count).End(xlUp).Row

Nhưng ở đây em muốn tìm đến dòng cuối cùng có dữ liệu khác “ ” thì code như nào ạ
(trong file ví dụ là dòng 12)

 

[ndu96081631]

Chào các anh chị
Em có vấn đề nhỏ như này nhưng seach cụ google cả buổi sáng chưa ra.

Ví dụ:

Em muốn tìm vị trí dòng cuối cùng của cột chứa dữ liệu, em có thể dùng code như này
(trong file ví dụ là dòng 14)

Dim dong_cuoi As Long
Dong_cuoi = Sheet1.Range("b" & Rows.Count).End(xlUp).Row

Nhưng ở đây em muốn tìm đến dòng cuối cùng có dữ liệu khác “ ” thì code như nào ạ
(trong file ví dụ là dòng 12)

Tiêu đề bạn ghi là "Tìm vị trí dòng đầu tiên có giá trị bằng rổng"
trong khi nội dung bên dưới bạn lại ghi: "Nhưng ở đây em muốn tìm đến dòng cuối cùng có dữ liệu khác “ ”"
Vậy cuối cùng là bạn muốn tìm gì?

 

[onecry]

hi, em bị lộn văn thầy, mà cơ bản là duyệt từ trên xuống, dừng lại ở cells có giá trị bằng rỗng, và xác định đó là dòng thứ mấy

 

[concogia]

Tiêu đề bạn ghi là "Tìm vị trí dòng đầu tiên có giá trị bằng rổng"
trong khi nội dung bên dưới bạn lại ghi: "Nhưng ở đây em muốn tìm đến dòng cuối cùng có dữ liệu khác “ ”"
Vậy cuối cùng là bạn muốn tìm gì?

Tức là....chạy từ trên xuống, đụng thằng nào "" thì lấy thằng đó, không chạy nữa
Híc

 

[befaint]

hi, em bị lộn văn thầy, mà cơ bản là duyệt từ trên xuống, dừng lại ở cells có giá trị bằng rỗng, và xác định đó là dòng thứ mấy

Sub CC()
Dim cll As Range, r As Long
For Each cll In Sheets("Sheet1").Range("B5:B65000")
    If cll.Value = "" Then r = cll.Row: Exit For
Next cll
MsgBox r
End Sub

 

[onecry]

code bị lỗi như này thày ơi

 

[ndu96081631]

hi, em bị lộn văn thầy, mà cơ bản là duyệt từ trên xuống, dừng lại ở cells có giá trị bằng rỗng, và xác định đó là dòng thứ mấy

Dùng Find nhé

Sub test()
  Dim rngFind As Range
  Set rngFind = Range("B5:B20000").Find(vbNullString, , xlValues, xlWhole)
  If Not rngFind Is Nothing Then MsgBox rngFind.Row
End Sub

 

[befaint]

code bị lỗi như này thày ơi

Làm gì có cái sheets ("Sheet3") nào đâu mà chẳng lỗi.

For Each cll In Sheet3.Range("B5:B65000")

 

[onecry]

Làm gì có cái sheets ("Sheet3") nào đâu mà chẳng lỗi.

For Each cll In Sheet3.Range("B5:B65000")

trong ví dụ em là sheet4 thày, mà thày bỏ sheet4 vào xem cũng lỗi àk

 

[befaint]

trong ví dụ em là sheet4 thày, mà thày bỏ sheet4 vào xem cũng lỗi àk

Chắc chắn bạn nhầm chỗ nào đó.
Chép vào một module:

Sub CC()
Dim cll As Range, r As Long
For Each cll In Sheet4.Range("B5:B65000")
    If cll.Value = "" Then r = cll.Row: Exit For
Next cll
MsgBox r
End Sub

 

[HieuCD]

Dùng Find nhé

Sub test()
  Dim rngFind As Range
  Set rngFind = Range("B5:B20000").Find(vbNullString, , xlValues, xlWhole)
  If Not rngFind Is Nothing Then MsgBox rngFind.Row
End Sub

đề phòng trường hợp ô B5 =""
thêm tham số After cho Find

Sub test()
  Dim rngFind As Range, LastCell As Range
  Set LastCell = Range("B20000")
  Set rngFind = Range("B5:B20000").Find(vbNullString, LastCell, xlValues, xlWhole)
  If Not rngFind Is Nothing Then MsgBox rngFind.Row
  rngFind.Select
End Sub

 

[onecry]

Chắc chắn bạn nhầm chỗ nào đó.
Chép vào một module:

Sub CC()
Dim cll As Range, r As Long
For Each cll In Sheet4.Range("B5:B65000")
    If cll.Value = "" Then r = cll.Row: Exit For
Next cll
MsgBox r
End Sub

dạ đúng là em nhằm chỗ nào thật, cái này chạy ok rồi thày