Copy và dán dữ liệu liên tiếp nhiều lần!

[Sơn Mã]

Các bạn có thể giúp mình code copy và dán liên tiếp nhiều lần tuỳ ý theo ý mình được không ạ?
Ví dụ: mình cần copy dữ liệu từ (B2:B6) rồi dán liên tiếp nhiều lần xuống phía dưới như file minh hoạ thì làm như thế nào cho nhanh ạ? (Chẳng hạn dán 100000 lần, nếu giữ ctr và kéo xuống thì rất lâu)! Mong các bạn chỉ giúp. Xin cảm ơn nhiều!

 

[be_09]

Các bạn có thể giúp mình code copy và dán liên tiếp nhiều lần tuỳ ý theo ý mình được không ạ?
Ví dụ: mình cần copy dữ liệu từ (B2:B6) rồi dán liên tiếp nhiều lần xuống phía dưới như file minh hoạ thì làm như thế nào cho nhanh ạ? (Chẳng hạn dán 100000 lần, nếu giữ ctr và kéo xuống thì rất lâu)! Mong các bạn chỉ giúp. Xin cảm ơn nhiều!

Có mấy vấn đề bạn nêu không hợp lý:

- Không ai Copy B2:B6 và Paste xuống đến 100000 lần để làm gì cả.

- Muốn làm cái gì đó thì phải có tiêu đề và vùng dữ liệu cần Copy.

- Nếu là bảng lương thì người ta cũng Copy và Paste xuống cũng chỉ đến 12 lần là tối đa.

Còn hỏi như bạn thì không ai biết đường trả lời, còn nếu trả lời cho bạn thì khi phát sinh sẽ trả lời tiếp theo nhiều lần nữa (tôi đoán chắc chắn là như vậy).

 

[befaint]

Có mấy vấn đề bạn nêu không hợp lý:

- Không ai Copy B2:B6 và Paste xuống đến 100000 lần để làm gì cả.

- Muốn làm cái gì đó thì phải có tiêu đề và vùng dữ liệu cần Copy.

- Nếu là bảng lương thì người ta cũng Copy và Paste xuống cũng chỉ đến 12 lần là tối đa.

Còn hỏi như bạn thì không ai biết đường trả lời, còn nếu trả lời cho bạn thì khi phát sinh sẽ trả lời tiếp theo nhiều lần nữa (tôi đoán chắc chắn là như vậy).

(1) Chỗ màu đỏ đây anh:

https://www.giaiphapexcel.com/forum/search.php?searchid=10864651

(2) Em nghĩ là dán 1 lần là đủ (chọn 100000 dòng rồi dán thôi).

 

[Sơn Mã]

Có mấy vấn đề bạn nêu không hợp lý:

- Không ai Copy B2:B6 và Paste xuống đến 100000 lần để làm gì cả.

- Muốn làm cái gì đó thì phải có tiêu đề và vùng dữ liệu cần Copy.

- Nếu là bảng lương thì người ta cũng Copy và Paste xuống cũng chỉ đến 12 lần là tối đa.

Còn hỏi như bạn thì không ai biết đường trả lời, còn nếu trả lời cho bạn thì khi phát sinh sẽ trả lời tiếp theo nhiều lần nữa (tôi đoán chắc chắn là như vậy).

Dạ, bài này chỉ có như vậy thôi, không phát sinh cái gì nữa ạ

 

[Sơn Mã]

Thật ra bài này mình dùng chế độ ghi macro là xong. Nhưng ngoài cách đó ra mình muốn biết thêm còn cách nào không?

 

[SA_DQ]

Thì bạn ghi macro đó, xong đưa lên diễn đàn;

Các tiền bối sẽ giúp bạn cắt bỏ râu ria đi là được đẹp thôi!

(Mà lưu í chỉ cần thực hiện việc Copy & dán 3 hay 4 lần là cùng thôi nha!)

 

[VetMini]

Thì bạn ghi macro đó, xong đưa lên diễn đàn;

Các tiền bối sẽ giúp bạn cắt bỏ râu ria đi là được đẹp thôi!

(Mà lưu í chỉ cần thực hiện việc Copy & dán 3 hay 4 lần là cùng thôi nha!)

Chờ một hồi cũng có ngừoi viết từ a-z. Tội gì phải làm.

 

[Sơn Mã]

Chờ một hồi cũng có ngừoi viết từ a-z. Tội gì phải làm.

Bạn như có ác cảm với mình ý. Hix, mình chỉ muốn biết thêm mà cũng có tội vậy.

Sub GPE()
Range("B2:B6").Select
Selection.AutoFill Destination:=Range("B2:B500000"), Type:=xlFillCopy
Range("B2:B500000").Select
End Sub

- Ngoài cách này ra còn cách nào không ạ?

 

[be_09]

Thì bạn ghi macro đó, xong đưa lên diễn đàn;

Các tiền bối sẽ giúp bạn cắt bỏ râu ria đi là được đẹp thôi!

(Mà lưu í chỉ cần thực hiện việc Copy & dán 3 hay 4 lần là cùng thôi nha!)

Anh là trùm rồi, còn ai qua anh nữa mà nêu "các tiền bối sẽ giúp".

Chủ Topic cứ bám lấy ông ấy mà truy vấn, sẽ được kết quả mong muốn.

 

[Nguyễn Hồng Quang]

Thật ra bài này mình dùng chế độ ghi macro là xong. Nhưng ngoài cách đó ra mình muốn biết thêm còn cách nào không?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B:B")) Is Nothing Then
Else 
ActiveCell.Copy 
'Target.Copy
End If
If Intersect(Target, Range("C:C")) Is Nothing Then
Else 
ActiveSheet.Paste
End If
End Sub

Nghiên cứu thêm code này bạn xem

 

[Sơn Mã]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B:B")) Is Nothing Then
Else 
ActiveCell.Copy 
'Target.Copy
End If
If Intersect(Target, Range("C:C")) Is Nothing Then
Else 
ActiveSheet.Paste
End If
End Sub

Nghiên cứu thêm code này bạn xem

Vâng, cảm ơn bạn nhiều!

 

[mesavn04]

Dạ, tiện đây em cũng có vấn đề na ná bác Sơn Mã, cũng rất mong các tiền bối chỉ giáo giúp.
Em có 1 file excel chứa nội dung tương ứng với các field của 1 form trên web, em hay làm thủ công thế này: copy ô đầu tiên, chuyển sang web form để paste, quay lại excel copy ô thứ 2 rồi lại quay qua web form paste...cho đến hết các field trên web form. Vậy có cách nào để trên file excel hiện tại, copy lần 1 -->excel hiểu đó là biến 1, copy lần 2-->biến 2...rồi quay qua web form cứ vậy mà paste theo thứ tự được không ạ?Để đỡ mất thời gian quay qua quay lại thôi, chứ em cũng không có mục đích gì lớn lao lắm.
Rất mong các tiền bối bớt chút thời gian trả lời giúp em, em chân thành cảm ơn ạ.