Cần 01 Macro copy nội dung những cột mình cần qua 1 sheet khác (1 người xem)

[tuyvuong]

Chào tất cả anh, chị, em trong diễn đàn,
Hàng tháng mình được bộ phận kế toán kết chuyển cho 5 file Excel (mình có đính kèm 1 file mẫu), sau đó mình thực hiện các công đoạn sau với từng file:
- Mở file
- Tìm đến các cột: BG BW BX BY CA CD CE tô màu đánh dấu để phân biệt đây là những cột mình cần.
- Xóa các cột không tô màu để còn lại gồm 07 cột trên thôi
- Đánh dấu nội dung của 07 cột
- Copy sang 1 sheet khác và lưu trữ
Do file excel có quá nhiều cột nên mỗi lần tìm 07 cột mình cần rất mất thời gian, sau đó phải thực hiện xóa và copy các cột đó qua sheet khác (vẫn phải giữ nguyên Sheet gốc) nên mình ước chi những công việc này được làm tự động thì hay biết mấy. Anh chị có giải pháp hay hoặc viết giúp 1 macro giùm mình thực hiện các công đoạn trên với từng file được không?
Xin chân thành cám ơn tất cả!
PS: File Excel này chẵng hiểu thế nào mà ban đầu mình đánh dấu 07 cột xong ấn ctrl+C để qua sheet thứ 02 Past vào cho nhanh thế mà nó ko cho nên mình phải chọn hạ sách như những gì mình mô tả bên trên.

 

[Quang_Hải]

Chào tất cả anh, chị, em trong diễn đàn,
Hàng tháng mình được bộ phận kế toán kết chuyển cho 5 file Excel (mình có đính kèm 1 file mẫu), sau đó mình thực hiện các công đoạn sau với từng file:
- Mở file
- Tìm đến các cột: BG BW BX BY CA CD CE tô màu đánh dấu để phân biệt đây là những cột mình cần.
- Xóa các cột không tô màu để còn lại gồm 07 cột trên thôi
- Đánh dấu nội dung của 07 cột
- Copy sang 1 sheet khác và lưu trữ
Do file excel có quá nhiều cột nên mỗi lần tìm 07 cột mình cần rất mất thời gian, sau đó phải thực hiện xóa và copy các cột đó qua sheet khác (vẫn phải giữ nguyên Sheet gốc) nên mình ước chi những công việc này được làm tự động thì hay biết mấy. Anh chị có giải pháp hay hoặc viết giúp 1 macro giùm mình thực hiện các công đoạn trên với từng file được không?
Xin chân thành cám ơn tất cả!
PS: File Excel này chẵng hiểu thế nào mà ban đầu mình đánh dấu 07 cột xong ấn ctrl+C để qua sheet thứ 02 Past vào cho nhanh thế mà nó ko cho nên mình phải chọn hạ sách như những gì mình mô tả bên trên.

Code mẫu cho bạn. Bạn thêm những cột cần copy vào

Sub copyyyy()
With Sheet1
   .[A1].MergeCells = False
   Union(.[BG:BG], .[BW:BW], .[BX:BX]).Copy
End With
Sheets.Add
ActiveSheet.Paste
End Sub

 

[Kiều Mạnh]

ý bạn là muốn copy mấy cột BG BW BX BY CA CD CE này sang sheet khác lưu thôi đúng không và copy có nối đuôi nhau liên tiếp xuống ko ... nếu như vậy thì mình làm cho
nhìn file của bạn cột gì nhiều ghê vậy

 

[Kiều Mạnh]

Code mẫu cho bạn. Bạn thêm những cột cần copy vào

Sub copyyyy()
With Sheet1
   .[A1].MergeCells = False
   Union(.[BG:BG], .[BW:BW], .[BX:BX]).Copy
End With
Sheets.Add
ActiveSheet.Paste
End Sub

Vậy là code này anh add thêm sheet xong paste qua...rất xúc tích ngắn gọn .. em định tính viết khác nhưng dài ghê lắm

 

[tuyvuong]

ý bạn là muốn copy mấy cột BG BW BX BY CA CD CE này sang sheet khác lưu thôi đúng không và copy có nối đuôi nhau liên tiếp xuống ko ... nếu như vậy thì mình làm cho
nhìn file của bạn cột gì nhiều ghê vậy

Đúng rồi!
Mình cần copy 07 cột đó qua sheet mới và vẫn giữ nguyên thứ tự.

 

[tuyvuong]

Code mẫu cho bạn. Bạn thêm những cột cần copy vào

Sub copyyyy()
With Sheet1
   .[A1].MergeCells = False
   Union(.[BG:BG], .[BW:BW], .[BX:BX]).Copy
End With
Sheets.Add
ActiveSheet.Paste
End Sub

Bạn làm ơn hướng dẫn chi tiết thêm cho mình chút được không? Cách sử dụng đoạn code đó như thế nào?
Cám ơn bạn rất nhiều!

 

[Kiều Mạnh]

Đúng rồi!
Mình cần copy 07 cột đó qua sheet mới và vẫn giữ nguyên thứ tự.

VẬY bạn sử dụng code bài 2 đi là ok rồi đó sửa lại cột thôi

 

[tuyvuong]

Vậy cứ 1 lần mở file lên là mình lại phải tạo 1 Macro xong dán đoạn code đó vào và chọn Run hả bạn.
Mình làm thử thấy nó chạy Good lắm nhưng khi đóng file đó xong mình mở file thứ 2 lên là Macro đó mất tiêu và mình phải tạo lại. Không biết mình đã làm sai điều gì chăng?

 

[Kiều Mạnh]

Vậy cứ 1 lần mở file lên là mình lại phải tạo 1 Macro xong dán đoạn code đó vào và chọn Run hả bạn.
Mình làm thử thấy nó chạy Good lắm nhưng khi đóng file đó xong mình mở file thứ 2 lên là Macro đó mất tiêu và mình phải tạo lại. Không biết mình đã làm sai điều gì chăng?

kể cũng vui thiệt bạn đang đi gần đến dích rồi đó cố lên tí nữa thôi ... có như vậy bạn mới giỏi code được
thân

 

[Quang_Hải]

Vậy cứ 1 lần mở file lên là mình lại phải tạo 1 Macro xong dán đoạn code đó vào và chọn Run hả bạn.
Mình làm thử thấy nó chạy Good lắm nhưng khi đóng file đó xong mình mở file thứ 2 lên là Macro đó mất tiêu và mình phải tạo lại. Không biết mình đã làm sai điều gì chăng?

Bạn tải file về, lưu tạm chỗ nào đó. Mở file cần copy lên. Mở tiếp cái file này.Đứng tại sheet cần copy và bấm Ctrl +Shift+ R

 

[tuyvuong]

Bạn tải file về, lưu tạm chỗ nào đó. Mở file cần copy lên. Mở tiếp cái file này.Đứng tại sheet cần copy và bấm Ctrl +Shift+ R

Mình làm giống như bạn chỉ:
Khi mở file của bạn lên nó hỏi có muốn Enable Macro? Mình chọn Enable
Quay lại file cần copy, mình ấn tổ hợp Ctrl +Shift+ R thấy nó tạo sheet 2
thấy có 3 cột mới được chèn vào nhưng ko có nội dung.
Hình như Macro chạy không đúng nữa bạn à.
Như vậy:
- Nếu mở file cần copy lên, tạo 01 macro và chạy trực tiếp thì oke
- Nếu gọi file của bạn lên và ấn tổ hợp phím thì nó chỉ thực hiện tạo sheet 2 và copy 03 cột rỗng.
Mong bạn xem lại giúp!

 

[Quang_Hải]

Mình làm giống như bạn chỉ:
Khi mở file của bạn lên nó hỏi có muốn Enable Macro? Mình chọn Enable
Quay lại file cần copy, mình ấn tổ hợp Ctrl +Shift+ R thấy nó tạo sheet 2
thấy có 3 cột mới được chèn vào nhưng ko có nội dung.
Hình như Macro chạy không đúng nữa bạn à.
Như vậy:
- Nếu mở file cần copy lên, tạo 01 macro và chạy trực tiếp thì oke
- Nếu gọi file của bạn lên và ấn tổ hợp phím thì nó chỉ thực hiện tạo sheet 2 và copy 03 cột rỗng.
Mong bạn xem lại giúp!

Mở code ra thay từ Sheet1 thành ActiveSheet

 

[tuyvuong]

Mở code ra thay từ Sheet1 thành ActiveSheet

Tuyệt vời rồi bạn ơi!
Mình đã đổi như bạn chỉ và đã thành công
Sau một hồi mày mò mình đã biết cách:
- Đặt phím tắt cho nó
- Build thành file .xla
- Đưa file này vào Add in
Giờ mình không cần phải opend nó mỗi khi cần dùng nữa, mình ấn tổ hợp phím tắt là nó thực hiện luôn.
Cám ơn 02 bạn: Quanghai1969 và Kieumanh rất nhiều!

 

[Kiều Mạnh]

Tuyệt vời rồi bạn ơi!
Mình đã đổi như bạn chỉ và đã thành công
Sau một hồi mày mò mình đã biết cách:
- Đặt phím tắt cho nó
- Build thành file .xla
- Đưa file này vào Add in
Giờ mình không cần phải opend nó mỗi khi cần dùng nữa, mình ấn tổ hợp phím tắt là nó thực hiện luôn.
Cám ơn 02 bạn: Quanghai1969 và Kieumanh rất nhiều!

Cứ vậy mà học thôi ... 6 tháng sau bạn sẽ viết code phà phà thôi mà
chức vui vẽ và thành công