Chị nói rõ hơn chút được hem em chưa hiểu ý chị muốn
Ý là khi sử dụng công thức tham chiếu khi kéo xuống thì gặp dòng có dữ liệu nó dừng lại. Ý là có cách nào làm nhanh nhất không? Và kéo xuống tiếp gặp dòng có dữ liệu nơ dừng lại.
'Để sử dụng phím tắc đặt sub OnKeyFillBlank vào sự kiện Workbook Open'
'Hoặc chạy sub OnKeyFillBlank bằng tay
Sub OnKeyFillBlank()
Application.OnKey "^+q" , "test_FillBlank"
'Phím tắt Ctrl + Shift + q'
' Đặt Application.OnKey "^+q" , "" để xóa phím tắt
'Chú ý Không thay đổi các phím tắt của Excel
End Sub
Sub test_FillBlank()
FillBlank RngA:=[a2], Rupt:=True ', RngF:=[b2]
'Rupt = True thì chỉ copy đến khi gặp ô chứa dữ liệu hoặc công thức đầu tiên sẽ dừng
'Nếu RngF bỏ trống thì RngF sẽ là cells nằm sau RngA
'Để thể thực hiện ở 2 trang tính : FillBlank RngA:=Sheet1.[a2] , RngF:=Sheet2.[b2], Rupt:=True
End Sub
Sub FillBlank(RngA As Range, Optional ByVal RngF As Range, _
Optional ByVal Rupt As Boolean = False)
Dim LRow&, TRow&, Col&, Rng, Rngs, isRupt As Boolean
TRow = RngA.Row: Col = RngA.Column
With RngA.Parent
If RngF Is Nothing Then
Set RngF = .Cells(TRow, Col + 1)
End If
LRow = .Cells(Rows.Count, Col).End(xlUp).Row
Set Rngs = RngF.Parent.Range(RngF, RngF.Parent.Cells(LRow, RngF.Column))
For Each Rng In Rngs
If Rng.Formula = "" Then
If Not isRupt Then isRupt = True
Rng.Formula = RngF.FormulaR1C1
Else
If isRupt And Rupt Then Exit Sub
End If
Next Rng
End With
Set Rngs = Nothing
End Sub
Dữ liệu của mình khoảng 35000 dòng đó. Có cách nào hay hơn không?
Như bài 4 của anh HesanBi
Sub test_FillBlank()
FillBlank RngA:=[a2], Rupt:=False 'Chỉnh True thành False
End Sub
Sub FillBlank(RngA As Range, Optional ByVal RngF As Range, _
Optional ByVal Rupt As Boolean = False)
Dim LRow&, TRow&, Col&, Rng, Rngs, isRupt As Boolean
TRow = RngA.Row: Col = RngA.Column
With RngA.Parent
If RngF Is Nothing Then
Set RngF = .Cells(TRow, Col + 1)
End If
LRow = .Cells(Rows.Count, Col).End(xlUp).Row
Set Rngs = RngF.Parent.Range(RngF, RngF.Parent.Cells(LRow, RngF.Column))
For Each Rng In Rngs
If Rng.Formula = "" Then
If Not isRupt Then isRupt = True
Rng.Formula = RngF.FormulaR1C1
Else
If isRupt And Rupt Then Exit Sub
End If
Next Rng
End With
Set Rngs = Nothing
End SubAnh ơi! Anh có thể tổng quát cho trường hợp dựa vào điều kiện cần tham chiếu.
Với giá trị dò không cố định thì tôi chưa gặp để viết code trong VBA, vì VBA thì dữ liệu phải ngay hàng thẳng lối.
