Cách copy những dữ liệu có trong 1 cột . (4 người xem)

[vovanthanh2602]

Mong mọi người giúp ạ.

Em muốn tạo 1 nút macro khi nhấn nút là nó chọn dữ liệu trong 1 cột mình mong muốn rồi copy nó ạ ( 1 cột gồm nhiều dòng dữ liệu , không cố định số dòng,dữ liệu liên tiếp nhau không có dòng trống, có nghĩa là ví dụ cột D có 10 dòng thì nó chọn và copy 10 dòng , 5 dòng thì nó chọn và copy 5 dòng) . em cảm ơn .

 

[Maika8008]

Vấn đề là cho nó chọn cột nào? Cột có cell hiện hành chăng? Và nếu như vậy thì chỉ cần bấm vào 1 cell bất kỳ trong cột thì dữ liệu cột đó được copy có phải tiện hơn không?

 

[huhumalu]

Chọn ô đầu tiên của cột nhấn Ctrl + Shift + ↓
Nhấn tiếp Ctrl + C cho khỏe, nút bấm hơi bất tiện.

Vấn đề là cho nó chọn cột nào?

Vấn đề làm sao cái nút biết bạn muốn cột nào ?
Nếu phải click chọn cột trước thì bấm phím thấy gọn lẹ hơn

 

[be_09]

Mong mọi người giúp ạ.

Em muốn tạo 1 nút macro khi nhấn nút là nó chọn dữ liệu trong 1 cột mình mong muốn rồi copy nó ạ ( 1 cột gồm nhiều dòng dữ liệu , không cố định số dòng,dữ liệu liên tiếp nhau không có dòng trống, có nghĩa là ví dụ cột D có 10 dòng thì nó chọn và copy 10 dòng , 5 dòng thì nó chọn và copy 5 dòng) . em cảm ơn .
View attachment 280987

Nếu đơn thuần là chọn hết dữ liệu trong một cột và Copy thì cần gì phải lập trình nhỉ, chỉ cần thao tác vầy thôi. Click chọn Cell đầu tiên của cột chứa dữ liệu cần Copy rồi nhấn tổ hợp phím Ctrl + Shift và nhấn nút mũi tên xuống thì nó sẽ chọn hết dữ liệu bên dưới Cell vừa chọn. Xong nhấn nút Ctrl + C là Copy thôi.

 

[Tình nghĩa giang hồ]

Mong mọi người giúp ạ.

Em muốn tạo 1 nút macro khi nhấn nút là nó chọn dữ liệu trong 1 cột mình mong muốn rồi copy nó ạ ( 1 cột gồm nhiều dòng dữ liệu , không cố định số dòng,dữ liệu liên tiếp nhau không có dòng trống, có nghĩa là ví dụ cột D có 10 dòng thì nó chọn và copy 10 dòng , 5 dòng thì nó chọn và copy 5 dòng) . em cảm ơn .
View attachment 280987

Sub copy_Ma()
Dim dong_cuoi As Long
dong_cuoi = Sheet1.Range("D" & Rows.Count).End(xlUp).Row
Sheet1.Range("D1" & dong_cuoi).Copy
End Sub

Bài đã được tự động gộp: 19/9/22

Nếu đơn thuần là chọn hết dữ liệu trong một cột và Copy thì cần gì phải lập trình nhỉ, chỉ cần thao tác vầy thôi. Click chọn Cell đầu tiên của cột chứa dữ liệu cần Copy rồi nhấn tổ hợp phím Ctrl + Shift và nhấn nút mũi tên xuống thì nó sẽ chọn hết dữ liệu bên dưới Cell vừa chọn. Xong nhấn nút Ctrl + C là Copy thôi.

Kích chuột vào D1 là 1 nốt nhạc, CT + Shift + mũi tên xuống là 2 nốt nhạc, CTRL + C là 3 nốt nhạc. Trong khi nút bấm chỉ 1 nốt nhạc. Tiết kiệm được 2 nốt nhạc, nên bạn đó mới tạo nút này đó bác....

 

[huhumalu]

Trong khi nút bấm chỉ 1 nốt nhạc. Tiết kiệm được 2 nốt nhạc, nên bạn đó mới tạo nút này đó bác....

Rồi mang nếu không dùng cột D, chuyển sang cột E. Tạm cho là cùng file và tất cả đều nằm ở Sheet1 như code của bạn.
Bấm Alt + F11: 1 nốt nhạc.
Vào chọn Modul: 1 nốt nhạc.
Biết và sửa lại cho đúng: 1 bài nhạc.

 

[ptm0412]

Biết và sửa lại cho đúng: 1 bài nhạc.

Cả 1 bản nhạc giao hưởng luôn ấy chứ