Copy nhanh vùng dán cách khoản nhau

[viehoai]

Xin các anh chị giúp đỡ có cách nào copy 1 vùng dữ liệu dán vào nhiều vị trí cách khoản nhau nhanh nhất. Xin cảm ơn

 

[ndu96081631]

Xin các anh chị giúp đỡ có cách nào copy 1 vùng dữ liệu dán vào nhiều vị trí cách khoản nhau nhanh nhất. Xin cảm ơn

- Quét chọn từ A3 đến A50
- Vào menu Data\Filter\AutoFilter
- Bấm mũi tên xổ xuống của AutoFilter, chọn Blanks
- Quét chọn B4:B6 và Copy
- Quét chọn B4:B50 và Paste
- Hủy AutoFilter và xem kết quả

 

[SA_DQ]

Thêm một cách nữa đê:

Option Explicit
Sub CopyAndPaste()
 Dim Rng As Range, Jj As Long, VTr As Long
 
 VTr = [A65500].End(xlUp).Row + 1
 Set Rng = Range("B4:B6")
 For Jj = 8 To VTr Step 4
   Cells(Jj, "B").Resize(3).Value = Rng.Value
 Next Jj
End Sub

 

[viehoai]

Option Explicit

VTr = [A65500].End(xlUp).Row + 1

Em đang tự học VBA nên nhờ anh (chị) HYen17 dịch giúp lệnh này nhé
Xin cho E-mail để có gì để hỏi về VBA nhé. Xin cảm ơn rất nhiều.

 

[ndu96081631]

Em đang tự học VBA nên nhờ anh (chị) HYen17 dịch giúp lệnh này nhé
Xin cho E-mail để có gì để hỏi về VBA nhé. Xin cảm ơn rất nhiều.

- [A65500].End(xlUp) tương đương với việc bạn đặt con trỏ chuột tại A65500 và bấm Ctrl + mũi tên lên
- Thao tác này sẽ di chuyển ActiveCell đến dòng cuối cùng có dữ liệu tại cột A
- Vậy [A65500].End(xlUp).Row chính là chỉ số dòng của ActiveCell sau khi đã thao tác Ctrl + mũi tên lên
- Suy ra: VTr = [A65500].End(xlUp).Row + 1 tức là lấy chỉ số dòng ngay dưới dòng cuối và gán vào biến Vtr
Vậy thôi