Hỏi về code tìm dòng cuối cùng! (1 người xem)

[vova2209]

em muốn tìm dòng cuối cùng của tất cả cột, Nhưng giờ em có nhiều Sub mỗi lần phải tạo như này:
Dim lr As Long
lr = Range("F65535").End(xlUp).row
Range("G3:J3").Copy
Range("G3:J" & lr).PasteSpecial Paste:=xlPasteFormulas
---------------------
>> Hay là có cách khác không ạ!

 

[PacificPR]

Hàm LastRowRange ở bài #10 đáp ứng điều này

Cái đó gặp ẩn dòng thì không đúng thầy ạ

 

[VetMini]

Tạo 1 sub tháo ẩn dòng và 1 sub cài trở lại.

Khi làm việc với VBA có liên quan đến số dòng, gọi sub 1 và làm xong thì gọi sub 2

 

[HieuCD]

Cái đó gặp ẩn dòng thì không đúng thầy ạ

dùng cách của bạn Mutants Men để tìm dòng cuối kể cả bị ẩn

Function LastRowRange(ByVal Rng As Range) As Long
    LastRowRange = Range(Rng(1, 1), Cells(Rows.Count, Rng(1, Rng.Columns.Count).Column)).Find(What:="*", After:=
Rng(1, 1), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
End Function

 

[VetMini]

VBA là bút sa gà chết. Làm việc với một mớ dữ liệu lớn làm sao kiểm soát hết. Vì vậy trước khi bước vào phải khẳng định:
1 là chấp nhận dòng/cột ẩn và merged cells, 2 là không chấp nhận

Nếu bạn theo 1 thì mọi code đều phải viết theo kiểu đại chúng để bao trùm hết
Néu bạn theo 2 thì phải gỡ cột/dòng ẩn và merged cells trước khi làm việc

Đầu nào cũng có cái lợi và cái bất lợi của nó. Tôi không kêu gọi theo đường nào nhưng nếu theo đường nào thì phải giữ cho đúng lệ của đường ấy.

 

[vova2209]

Hàm LastRowRange ở bài #10 đáp ứng điều này

Sub CopyTHCD()

getSpeed True
Range("B3:C3").Copy 'Copy Công thuc'
Range("B4:C" & Fdongcuoi(1)).PasteSpecial Paste:=xlPasteFormulas

Range("A3").Select

Application.CutCopyMode = False
getSpeed False
End Sub

'TÌM DÒNG CUÔI CÙNG------------------------------------------------
Function Fdongcuoi(ByVal Col As String, Optional Sh As Worksheet = Nothing) As Long
If Sh Is Nothing Then
Fdongcuoi = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).row
Else
Fdongcuoi = Sh.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).row
End If
End Function

Em làm được rồi chỉ cần cột nào có dữ liệu nhiều nhất nó sẽ chạy theo cột đó. Fdongcuoi(1) em phải thêm số (1) vào code nó mới chạy là sao ạ..

 

[befaint]

Fdongcuoi(1) em phải thêm số (1) vào code nó mới chạy là sao ạ..

Thấy dùng VBA tới bến luôn mà hỏi cái này nhiều lần?

 

[vova2209]

Thấy dùng VBA tới bến luôn mà hỏi cái này nhiều lần?

View attachment 183565

giống như 1 thủ tục chạy tự động phải không anh?

 

[befaint]

giống như 1 thủ tục chạy tự động phải không anh?

Ở bài trước bạn chưa rõ thì bạn hỏi luôn ở bài đó. Đến tận đây rồi mới hỏi?
Đọc tới bài #25 mới rõ yêu cầu của bạn là gì...

 

[vova2209]

Ở bài trước bạn chưa rõ thì bạn hỏi luôn ở bài đó. Đến tận đây rồi mới hỏi?
Đọc tới bài #25 mới rõ yêu cầu của bạn là gì...

Vâng cảm ơn anh! ạ

 

[PacificPR]

dùng cách của bạn Mutants Men để tìm dòng cuối kể cả bị ẩn

Function LastRowRange(ByVal Rng As Range) As Long
    LastRowRange = Range(Rng(1, 1), Cells(Rows.Count, Rng(1, Rng.Columns.Count).Column)).Find(What:="*", After:=
Rng(1, 1), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
End Function

Nếu cột không có dữ liệu nó lỗi anh ạ

 

[HieuCD]

Nếu cột không có dữ liệu nó lỗi anh ạ

Nếu không có dữ liệu thì "tìm dòng cuối có dữ liệu" không biết nên trả kết quả là gì?

Function LastRowRange(ByVal Rng As Range) As Long
  On Error Resume Next
  LastRowRange = Range(Rng(1, 1), Cells(Rows.Count, Rng(1, Rng.Columns.Count).Column)).Find(What:="*", After:=Rng(1, 1), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
  If Err.Number > 0 Then Err.Clear ': LastRowRange = 1
End Function

 

[PacificPR]

Nếu không có dữ liệu thì "tìm dòng cuối có dữ liệu" không biết nên trả kết quả là gì?

Function LastRowRange(ByVal Rng As Range) As Long
  On Error Resume Next
  LastRowRange = Range(Rng(1, 1), Cells(Rows.Count, Rng(1, Rng.Columns.Count).Column)).Find(What:="*", After:=Rng(1, 1), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
  If Err.Number > 0 Then Err.Clear ': LastRowRange = 1
End Function

Nó trả về dòng đầu tiên. Với lại anh bỏ qua tham số LookIn nên nó nó bỏ qua dòng có công thức luôn ạ.

 

[HieuCD]

Nó trả về dòng đầu tiên. Với lại anh bỏ qua tham số LookIn nên nó nó bỏ qua dòng có công thức luôn ạ.

nó vẫn tìm được các ô có công thức mà

 

[PacificPR]

nó vẫn tìm được các ô có công thức mà

Sao khi Gõ hàm trực tiếp vào Exel nếu số dòng > dòng chứa công thức kết quả bằng 1 . Còn nhỏ hơn hoặc băng thì kết quả bằng 17 anh ạ

 

[HieuCD]

Sao khi Gõ hàm trực tiếp vào Exel nếu số dòng > dòng chứa công thức kết quả bằng 1 . Còn nhỏ hơn hoặc băng thì kết quả bằng 17 anh ạ

Do chỉ tìm từ dòng của tham số Rng trở xuống, Chỉnh lại để tìm cả cột

Function LastRowRange(ByVal Rng As Range) As Long
  On Error Resume Next
  LastRowRange = Range(Cells(1, Rng(1, 1).Column), Cells(Rows.Count, Rng(1, Rng.Columns.Count).Column)).Find(What:="*", After:=Cells(1, Rng(1, 1).Column), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
  If Err.Number > 0 Then Err.Clear: LastRowRange = 1
End Function