Insert Copied Cells trong Macro VBA

[xuanquy1188]

Chào các bạn!

Mình muốn Copy nguyên 1 dòng và sau đó Insert Copied Cells ngay tại dòng đó. Mục đích là trong dòng mình Insert sẽ có luôn công thức của dòng Copy.

Không phải Insert Enter Row nhé, nếu Insert Enter Row sẽ không có công thức.

Khi mình làm ghi Macro thì lệnh nó sẽ như thế này:

Rows("6:6").Select

Selection.Copy
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False

Bây h mình muốn copy một dòng bất kỳ, có nghĩa như đặt biến a là số đếm sau đó mình sửa công thức là Rows("a:a").Select rồi thực hiện nhấn Button nhưng báo lỗi công thức không đúng.

Vậy mình cần sửa lại như thế nào ạ?

Các bạn xem file đính kèm nhé.

Thank vì tất cả.

 

[phulien1902]

Chào các bạn!

Mình muốn Copy nguyên 1 dòng và sau đó Insert Copied Cells ngay tại dòng đó. Mục đích là trong dòng mình Insert sẽ có luôn công thức của dòng Copy.

Không phải Insert Enter Row nhé, nếu Insert Enter Row sẽ không có công thức.

Khi mình làm ghi Macro thì lệnh nó sẽ như thế này:



Bây h mình muốn copy một dòng bất kỳ, có nghĩa như đặt biến a là số đếm sau đó mình sửa công thức là Rows("a:a").Select rồi thực hiện nhấn Button nhưng báo lỗi công thức không đúng.

Vậy mình cần sửa lại như thế nào ạ?

Các bạn xem file đính kèm nhé.

Thank vì tất cả.

Vấn đề của bạn là FillDown Formula ?

 

[xuanquy1188]

Đúng rồi bạn ơi, mình không biết công thức chọn dòng bất kỳ để copy nguyên 1 dòng đó và Insert Copied Cells ngay tại dòng đó như thế nào

 

[phulien1902]

Đúng rồi bạn ơi, mình không biết công thức chọn dòng bất kỳ để copy nguyên 1 dòng đó và Insert Copied Cells ngay tại dòng đó như thế nào

Bạn dùng Code sau:

Sub abc()
    With ActiveCell
        .Resize(, 3).Copy
        .Offset(1).Insert Shift:=xlDown
    End With
End Sub