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 ạ!

 

[Mutants Men]

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 ạ!

tham khảo cái này nhé bạn

MsgBox Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

 

[vova2209]

tham khảo cái này nhé bạn

MsgBox Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

à! ý em là muốn tạo 1 funciton thay code này "lr = Range("F65535").End(xlUp).row". Nhưng em muốn code tìm dòng cuối của tất cả các cột trong bảng

 

[VetMini]

Function LastRow(byVal Col As String, Optional Sh As WorkSheet = Nothing) As Long
If Sh Is Nothing Then
LastRow = Cells(Rows.Count, Col).End(xlUp).Row
Else
LastRow = Sh.Cells(Rows.Count, Col).End(xlUp).Row
End If
End Function

Range("G3:J" & LastRow("F")).PasteSpecial Paste:=xlPasteFormulas

 

[vova2209]

Function LastRow(byVal Col As String, Optional Sh As WorkSheet = Nothing) As Long
If Sh Is Nothing Then
LastRow = Cells(Rows.Count, Col).End(xlUp).Row
Else
LastRow = Sh.Cells(Rows.Count, Col).End(xlUp).Row
End If
End Function

Range("G3:J" & LastRow("F")).PasteSpecial Paste:=xlPasteFormulas

Vẫn báo lỗi anh à! file đính kèm dưới anh xem em làm đúng chưa ạ

 

[befaint]

Vẫn báo lỗi anh à! file đính kèm dưới anh xem em làm đúng chưa ạ

Đọc kỹ hướng dẫn trước khi dùng!!!! Đã biết áp dụng hàm đâu mà kêu lỗi.

 

[vova2209]

Đọc kỹ hướng dẫn trước khi dùng!!!! Đã biết áp dụng hàm đâu mà kêu lỗi.

View attachment 183458

Vâng em hiểu rồi! cảm ơn anh nhiều

 

[Mutants Men]

Vâng em hiểu rồi! cảm ơn anh nhiều

Ối giời ơi! kinh đấy. tui chả hiểu gì cả
đề bài là thế này mà nhỉ
"em muốn tìm dòng cuối cùng của tất cả cột"
nhưng tại sao lại tìm trong cột F
-------------------------------------
chắc là mình không đọc kỹ đề nên hướng giải sai mất
lr = Range("F65535").End(xlUp).row

 

[vova2209]

Ối giời ơi! kinh đấy. tui chả hiểu gì cả
đề bài là thế này mà nhỉ
"em muốn tìm dòng cuối cùng của tất cả cột"
nhưng tại sao lại tìm trong cột F
-------------------------------------
chắc là mình không đọc kỹ đề nên hướng giải sai mất
lr = Range("F65535").End(xlUp).row

Như này là vẫn bị phụ thuộc vào Range("G3:J" & LastRow("F")).PasteSpecial Paste:=xlPasteFormulas à anh! anh chỉnh lại dùm e với ạ!

 

[PacificPR]

Như này là vẫn bị phụ thuộc vào Range("G3:J" & LastRow("F")).PasteSpecial Paste:=xlPasteFormulas à anh! anh chỉnh lại dùm e với ạ!

Bạn thử cách này xem sao

Sub Copydulieu()
    Dim Rng As Range, R As Long
Set Rng = Range("G3:J3")
R = LastRowRange(Rng)
'MsgBox J
Range("G3:J3").Copy
Range("G3:J" & R).PasteSpecial Paste:=xlPasteFormulas
End Sub

Function LastRowRange(ByVal Vungtieude As Range) As Long
    Dim I As Long, J As Long, N As Long, Dongcuoi As Long
    For Each Cll In Vungtieude
        J = Cll.Column:    I = Rows.Count
        N = Cells(I, J).End(3).Row
        If Dongcuoi < N Then Dongcuoi = N
    Next
    LastRowRange = Dongcuoi
End Function

 

[vova2209]

Bạn thử cách này xem sao

Sub Copydulieu()
    Dim Rng As Range, R As Long
Set Rng = Range("G3:J3")
R = LastRowRange(Rng)
'MsgBox J
Range("G3:J3").Copy
Range("G3:J" & R).PasteSpecial Paste:=xlPasteFormulas
End Sub

Function LastRowRange(ByVal Vungtieude As Range) As Long
    Dim I As Long, J As Long, N As Long, Dongcuoi As Long
    For Each Cll In Vungtieude
        J = Cll.Column:    I = Rows.Count
        N = Cells(I, J).End(3).Row
        If Dongcuoi < N Then Dongcuoi = N
    Next
    LastRowRange = Dongcuoi
End Function

Function này LastRowRange không sài được trực tiếp như này à anh!
Range("B3:C3").Copy
Range("B4:C" & LastRowRange).PasteSpecial Paste:=xlPasteFormulas
Mà vẫn phải gán định dạng
Dim Rng As Range
R As Long; Set Rng = Range("G3:J3")
R = LastRowRange(Rng).
Nếu như này thì làm như này vẫn hơi dài anh ạ!
Dim lr As Long
lr = Range("E65000").End(xlUp).row

 

[VetMini]

Function LastRowRange(ByVal Vungtieude As Range) As Long
    Dim I As Long, J As Long, N As Long, Dongcuoi As Long
    For Each Cll In Vungtieude
        J = Cll.Column:    I = Rows.Count
        N = Cells(I, J).End(3).Row
        If Dongcuoi < N Then Dongcuoi = N
    Next
    LastRowRange = Dongcuoi
End Function

For i = Vungtieude.Column to Vungtieude.Column + Vungtieude.Columns.Count - 1
Dongcuoi = Application.Max(Dongcuoi, Cells(Rows.Count, i).End(3).Row)
Next i

Tôi chỉ chỉnh code theo thuật toán của bạn thôi.
Còn việc thuật toán có đáp ứng được gì thì tôi không biết.

 

[vova2209]

Em hỏi thêm ạ!
Mục này đổi thành Function như nào anh nhỉ : VD
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Code
Application.CutCopyMode = False
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Em muốn Function dùng như này:
Sub GPC ()
GetSpeed = true
Code
GetSpeed = False
End sub

 

[vova2209]

For i = Vungtieude.Column to Vungtieude.Column + Vungtieude.Columns.Count - 1
Dongcuoi = Application.Max(Dongcuoi, Cells(Rows.Count, i).End(3).Row)
Next i

Tôi chỉ chỉnh code theo thuật toán của bạn thôi.
Còn việc thuật toán có đáp ứng được gì thì tôi không biết.

Vẫn báo lỗi! file đính kèm dưới anh xem hộ em làm đúng chưa với ạ.
em thay vào vẫn ko dc:
For i = Vungtieude.Column to Vungtieude.Column + Vungtieude.Columns.Count - 1
Dongcuoi = Application.Max(Dongcuoi, Cells(Rows.Count, i).End(3).Row)
Next i

 

[VetMini]

Mục này đổi thành Function như nào anh nhỉ : VD

Theo bạn thì function nghĩa là gì?

 

[VetMini]

Vẫn báo lỗi! file đính kèm dưới anh xem hộ em làm đúng chưa với ạ.
em thay vào vẫn ko dc:
For i = Vungtieude.Column to Vungtieude.Column + Vungtieude.Columns.Count - 1
Dongcuoi = Application.Max(Dongcuoi, Cells(Rows.Count, i).End(3).Row)
Next i

Bạn ví dụ lại cho rõ rệt là bạn muốn gì.
Từ đầu chí cuối, chả ai hiểu bạn muốn làm gì.

tiều đề là bạn muốn tìm dòng cuối cùng. Từ "cuối cùng" nó có cái ngữ cảnh của nó. Cuối cùng của nhóm nào? nhóm ấy gồm những gì, và như thế nào thì gọi là cuối cùng.

 

[vova2209]

Bạn ví dụ lại cho rõ rệt là bạn muốn gì.
Từ đầu chí cuối, chả ai hiểu bạn muốn làm gì.

tiều đề là bạn muốn tìm dòng cuối cùng. Từ "cuối cùng" nó có cái ngữ cảnh của nó. Cuối cùng của nhóm nào? nhóm ấy gồm những gì, và như thế nào thì gọi là cuối cùng.

- Em muốn copy công thức B3:C3
- Code sẽ tự tìm 1 cột có dữ liệu nhiều nhất ( dòng cuối cùng)
sẽ copy đến đó. Mà không phải là mình tự đi tìm 1 cột có dòng nhiều dữ liệu nhất để gán so với cột đó!

 

[VetMini]

Có 2 cách xác định dòng cuối cùng.
1. Xác định theo vùng. Cứ đến chỗ trống là hết vùng, không nhất thiết phải là ô cuối thật sự
2. Xác định chính xác ô cuối cùng trong vùng. Bỏ qua các khoảng trống ở giữa.

 

[vova2209]

Có 2 cách xác định dòng cuối cùng.
1. Xác định theo vùng. Cứ đến chỗ trống là hết vùng, không nhất thiết phải là ô cuối thật sự
2. Xác định chính xác ô cuối cùng trong vùng. Bỏ qua các khoảng trống ở giữa.

Em muốn cách 2 bỏ qua các ô trống tìm đếm dữ liệu cuối cùng của cột!

 

[VetMini]

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

 

[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