Copy địa chỉ cell đến 1 cell khác bằng Macro

[hieudd]

Gởi các thành viên Excel, Tôi có 1 tập tin hàng tháng phải lập công thức lấy tên tài khoản từ 1 cell đến 1 cell khác bằng công thức. Nay tôi nhờ các thành viên giúp tôi viết code VB cho tập tin đính kèm sau (cột A là cột trích tên tài khoản):

Nếu ghi chú này chưa rõ, thì tôi sẽ cung cấp thông tin thêm.
Trân trọng

 

[SA_DQ]

Cho hỏi lại để rõ thêm

Rằng chúng ta cần chép số 3120200 vô [A72], phải không?

Còn số TK 3120300 tại [B75] sẽ chép vô đâu, hay không chép?

Chờ tin bạn!

 

[hieudd]

Tên tài khoản tô màu đỏ ở cột B là tập tin gốc từ nước ngoài gời về

Khi nhận tập tin tôi phải chèn thêm cột A đồng thời dòng nào có số liệu phát sinh thì dùng hàm lấy tên tài khoản đại diện xuống dòng có số liệu.

Công việc hiện tại :
B1. Chèn thêm Cột A vào
B2. Tại Cell A1 Lập công thức lấy 7 ký tự đại diện cho dòng nào có số liệu
B3. Copy Cell vừa lập xuống các dòng (nếu có số liệu)
B4. Tại Cell khác Lập công thức lấy 7 ký tự đại diện cho dòng nào có số liệu của tài khoản mới phát sinh
... Làm lập lại các thao tác trên cho mỗi tài khoản phát sinh cho hết bảng tính (500 dòng)

Trân trọng