Giúp code: Nếu dòng trống thì copy dòng kề trên & paste vào các dòng trống phía dưới! (1 người xem)

[dongducnhiem]

Chào các bạn thành viên!
Công việc của mình thường Insert dòng, rồi copy dòng liền kề trên và paste xuống các dòng dưới.

Các bạn vui lòng viết giúp code như sau:
1/ Dòng dữ liệu bắt đầu dòng thứ 9
2/ Ví dụ: copy B9:I9 và paste xuống khối B10:I11, (copy dòng đỏ ở trên & paste cho các dòng liền kề dưới)
3/ Trong File của tôi lúc đầu chỉ có các dòng màu đỏ & đen, các dòng màu xanh lúc đầu là dòng trống, sau khi chạy code thì sẽ cho kết quả như vậy (Lưu ý tôi tô màu cho dòng là để cho các bạn dễ nhận diện, thực tế kg có)
4/ Chỉ copy & paste từ cột B đến cột I, các cột khác kg bị ảnh hưởng hay thay thay đổi bởi chạy code
5/ Tại dòng dữ liệu cuối cùng thì không copy & paste (ví dụ: dòng 43)
Xin cảm ơn các bạn!

 

[hoangvuluan]

Bạn cho hỏi: điều kiện nào thì thực hiện việc copy và paste????

 

[dongducnhiem]

Bạn cho hỏi: điều kiện nào thì thực hiện việc copy và paste????

Chưa hiểu ý bạn hỏi. Bây giờ bạn mở file đính kèm này. File này là chưa chạy code. Sau khi chạy code thì có kết quả như File ở bài #1. Bạn tạo giùm Sub ...()
Cảm ơn!

 

[dhn46]

Như thế này hả bạn?.......

 

[concogia]

Như thế này hả bạn?.......

Bạn í chỉ cần tới cột I thôi mà bạn

4/ Chỉ copy & paste từ cột B đến cột I, các cột khác kg bị ảnh hưởng hay thay thay đổi bởi chạy code

Thân

 

[dhn46]

Tks chú, cháu nghĩ bạn ấy biết tới VBA thì cũng biết cách tùy biến thôi.

 

[ThuNghi]

Chưa hiểu ý bạn hỏi. Bây giờ bạn mở file đính kèm này. File này là chưa chạy code. Sau khi chạy code thì có kết quả như File ở bài #1. Bạn tạo giùm Sub ...()
Cảm ơn!

Đã nhập liệu mà con làm biếng, chỉ copy và paste mà cũng kg làm.
Muốn code thì code.

Sub CopyRow()
Dim endR&, i&, k&
Dim Arr()
With Sheet1
  endR = .Cells(65000, "S").End(3).Row
  Arr = .Range(.Cells(9, "B"), .Cells(endR, "I")).Value
End With
For i = 1 To UBound(Arr)
  If Len(Arr(i, 1)) > 0 Then
    GoTo Next_For
  Else
    For k = 1 To UBound(Arr, 2)
      Arr(i, k) = Arr(i - 1, k)
    Next k
  End If
Next_For:
Next i
With Sheet1
  .Cells(9, "B").Resize(UBound(Arr), UBound(Arr, 2)) = Arr
End With
Erase Arr
End Sub

 

[hungphung276]

Mấy bác ơi, cho em hỏi hok cần dùng code , mình dùng công thức đươc hok?