Cần giúp đỡ cách rút gọn code VBA thêm dòng và code VBA Paste special (1 người xem)

[hung2412]

Chào quý vị và các bạn GPE!
Nhờ quý vị và các bạn giúp đỡ cho tôi 2 vấn đề về code VBA thêm dòng và code VBA Paste special với, cụ thể như sau:
- Vấn đề 1: Tôi có một file excel cần thêm 5 dòng ở dòng 4 và tôi dùng code như sau:

Rows("4:4").Insert Shift:=xlDown
Rows("4:4").Insert Shift:=xlDown
Rows("4:4").Insert Shift:=xlDown
Rows("4:4").Insert Shift:=xlDown
Rows("4:4").Insert Shift:=xlDown

- Vấn đề 2: Copy cột B sang C dạng Paste Special (Có chọn không để ô trống nguồn đè lên ô đích SkipBlanks:=True), tôi dùng code như sau:

Columns("B:B").Copy
Columns("C:C").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False

Câu hỏi đặt ra ở đây là có code nào để rút gọn code trên (của 2 vấn đề trên) cho đỡ dài dòng không? Mong quý vị và các bạn chỉ giáo.
Trân trọng cảm ơn!

 

[hung2412]

Không có vị nào hướng dẫn cả. Đành phải chờ thôi.

 

[nmhung49]

Chào quý vị và các bạn GPE!
Nhờ quý vị và các bạn giúp đỡ cho tôi 2 vấn đề về code VBA thêm dòng và code VBA Paste special với, cụ thể như sau:
- Vấn đề 1: Tôi có một file excel cần thêm 5 dòng ở dòng 4 và tôi dùng code như sau:
Rows("4:4").Insert Shift:=xlDown
Rows("4:4").Insert Shift:=xlDown
Rows("4:4").Insert Shift:=xlDown
Rows("4:4").Insert Shift:=xlDown
Rows("4:4").Insert Shift:=xlDown
- Vấn đề 2: Copy cột B sang C dạng Paste Special (Có chọn không để ô trống nguồn đè lên ô đích SkipBlanks:=True), tôi dùng code như sau:
Columns("B:B").Copy
Columns("C:C").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=True, Transpose:=False


Câu hỏi đặt ra ở đây là có code nào để rút gọn code trên (của 2 vấn đề trên) cho đỡ dài dòng không? Mong quý vị và các bạn chỉ giáo.
Trân trọng cảm ơn!

Vấn đề 1 bạn có thể rút code thành vậy

Rows("5:9").Insert xlDown

Vấn đề 2

Range("B:B").Copy
Range("C:C").PasteSpecial , , True, False

Do GPE bị chậm nên trả lời bạn chậm

 

[hung2412]

Vấn đề 1 bạn có thể rút code thành vậy

Rows("5:9").Insert xlDown

Cảm ơn bạn, code này tôi vừa thử có thể rút gọn ngắn hơn nữa:

Rows("5:9").Insert

 

[TrungChinhs]

Đây là code yêu cầu 2, bạn nghiên cứu rút gọn thêm nhé.

Sub Macro1()
    [b:b].Copy
    [c1].PasteSpecial , , 1
End Sub