Copy khi tìm thấy giá trị

[HUNGNGUYENCONG]

Em có viết được 1 đoạn code như trong bài ,sau đó thì hơi bí ..
Nhờ A/C viết code copy ô A2 nhe trong Msg thông báo xuống ô A9
Sau đó fill công thức xuống như ở sheet Vi du bên cạnh
Tiếp theo ở ô A1215 copy xuống ô A1222 ,fill công thức xuống
Sau khi fill xong, từ ô A1209 đến ô A1221 xóa 13 hàng này .
Cảm ơn anh/chị.

 

[anhbanvuitinh9x]

khi fill xong bác ấn xóa nhiều lần nhé!
Em cũng chưa hiểu vì sao chạy 1 lần nó không xóa hết được.
Cái này chắc nhờ cao nhân nào chỉ

 

[HUNGNGUYENCONG]

Cảm ơn bạn nhé.,hỗ xóa đó để mình làm sau ,hoặc xóa bằng tay cũng được

 

[HUNGNGUYENCONG]

khi fill xong bác ấn xóa nhiều lần nhé!
Em cũng chưa hiểu vì sao chạy 1 lần nó không xóa hết được.
Cái này chắc nhờ cao nhân nào chỉ

Bài đã được tự động gộp: 25/4/20

cho minh hỏi chỗ a = a+1 nghĩa là gi vậy bạn?và dòng mau đỏ nữa .

 

[anhbanvuitinh9x]

View attachment 236431

Bài đã được tự động gộp: 25/4/20

cho minh hỏi chỗ a = a+1 nghĩa là gi vậy bạn?và dòng mau đỏ nữa .

- Biến a là biến trung gian khi i chạy thỏa mãn điều kiện
- Phía dưới là điều kiện để fill giá trị từ giá trị đầu tiên tới "giá trị cuối-1"

 

[HUNGNGUYENCONG]

- Biến a là biến trung gian khi i chạy thỏa mãn điều kiện
- Phía dưới là điều kiện để fill giá trị từ giá trị đầu tiên tới "giá trị cuối-1"

Cảm ơn bạn

 

[HUNGNGUYENCONG]

- Biến a là biến trung gian khi i chạy thỏa mãn điều kiện
- Phía dưới là điều kiện để fill giá trị từ giá trị đầu tiên tới "giá trị cuối-1"

Cho mình hỏi :khi thứ tự các Head có sự thay đổi .Ví dụ ở tháng 5 là từ head Duy Phat 1 ,head Duy Phat 2,head Duy Phat 3 .
nhưng ở tháng 6 lại là head Duy Phat 2,headDuy Phat 1,head Duy Phat 3,và thêm head Duy Phat 4
thì nó chỗ Head 2 fill xuống bị sai ,em coi gúp a với ..

 

[anhbanvuitinh9x]

Option Explicit
Sub fill_dulieu()
Dim i As Long
Dim lr As Long
Dim ccol As Long
Application.ScreenUpdating = False
lr = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lr
ccol = WorksheetFunction.CountIfs(Range("K:K"), Cells(i, 1))
If ccol = 0 Then
Cells(i, 1).Value = Cells(i - 1, 1).Value
End If
Next i
Application.ScreenUpdating = True
End Sub

Bài đã được tự động gộp: 29/4/20

Cho mình hỏi :khi thứ tự các Head có sự thay đổi .Ví dụ ở tháng 5 là từ head Duy Phat 1 ,head Duy Phat 2,head Duy Phat 3 .
nhưng ở tháng 6 lại là head Duy Phat 2,headDuy Phat 1,head Duy Phat 3,và thêm head Duy Phat 4
thì nó chỗ Head 2 fill xuống bị sai ,em coi gúp a với ..

Option Explicit
Sub fill_dulieu()
Dim i As Long
Dim lr As Long
Dim ccol As Long
Application.ScreenUpdating = False
lr = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lr
ccol = WorksheetFunction.CountIfs(Range("K:K"), Cells(i, 1))
If ccol = 0 Then
Cells(i, 1).Value = Cells(i - 1, 1).Value
End If
Next i
Application.ScreenUpdating = True
End Sub

 

[HUNGNGUYENCONG]

Option Explicit
Sub fill_dulieu()
Dim i As Long
Dim lr As Long
Dim ccol As Long
Application.ScreenUpdating = False
lr = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lr
ccol = WorksheetFunction.CountIfs(Range("K:K"), Cells(i, 1))
If ccol = 0 Then
Cells(i, 1).Value = Cells(i - 1, 1).Value
End If
Next i
Application.ScreenUpdating = True
End Sub

Bài đã được tự động gộp: 29/4/20

Option Explicit
Sub fill_dulieu()
Dim i As Long
Dim lr As Long
Dim ccol As Long
Application.ScreenUpdating = False
lr = Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lr
ccol = WorksheetFunction.CountIfs(Range("K:K"), Cells(i, 1))
If ccol = 0 Then
Cells(i, 1).Value = Cells(i - 1, 1).Value
End If
Next i
Application.ScreenUpdating = True
End Sub

Cảm ơn bạn nhé!

 

[anhbanvuitinh9x]

Cảm ơn bạn nhé!

ok bạn.
cái xóa thì vẫn dùng cái cũ bạn nhé! click vài lần là được