Giúp code VBA trong Exel

[dongbhhg]

E có file mẫu xuất từ phần mềm ra, tuy nhiên vẫn phải làm thủ công 1 số cột.
E lên đây nhờ anh chị em ai giúp 1 đoạn code để phục vụ nhanh trong công việc.
Các cột cần điền dữ liệu em mô tả trong file mẫu đính kèm.
Nếu được thì rất tuyệt vời, không được cũng không sao vì em vẫn làm thủ công hàng ngày ạ.
Rất chân thành cảm ơn

 

[Hoàng Tuấn 868]

E có file mẫu xuất từ phần mềm ra, tuy nhiên vẫn phải làm thủ công 1 số cột.
E lên đây nhờ anh chị em ai giúp 1 đoạn code để phục vụ nhanh trong công việc.
Các cột cần điền dữ liệu em mô tả trong file mẫu đính kèm.
Nếu được thì rất tuyệt vời, không được cũng không sao vì em vẫn làm thủ công hàng ngày ạ.
Rất chân thành cảm ơn

Mình thấy bài này dùng công thức là ổn mà, đâu cần tới code nhỉ, mà bạn nên có dữ liệu nguồn, qua xử lý sẽ ra kết quả này chứ.

 

[dongbhhg]

Mình thấy bài này dùng công thức là ổn mà, đâu cần tới code nhỉ.

Dùng công thức thì không cần bạn ạ, vì cóp từ cột này sang cột kia cũng được,
vì thế mới đưa lên để các bác giúp code chạy 1 lần là đc hết các cột luôn ạ

 

[Hoàng Nhật Phương]

E có file mẫu xuất từ phần mềm ra, tuy nhiên vẫn phải làm thủ công 1 số cột.
E lên đây nhờ anh chị em ai giúp 1 đoạn code để phục vụ nhanh trong công việc.
Các cột cần điền dữ liệu em mô tả trong file mẫu đính kèm.
Nếu được thì rất tuyệt vời, không được cũng không sao vì em vẫn làm thủ công hàng ngày ạ.
Rất chân thành cảm ơn

Chào Bạn, Bạn thử sử dụng chức năng record macro xem có xử lý được không ạ?

 

[Hoàng Tuấn 868]

Dùng công thức thì không cần bạn ạ, vì cóp từ cột này sang cột kia cũng được,
vì thế mới đưa lên để các bác giúp code chạy 1 lần là đc hết các cột luôn ạ

Vậy kết quả trả về đâu, cột địa chỉ bỏ ký tự sau dấu "," thứ mấy...

 

[dongbhhg]

Vậy kết quả trả về đâu, cột địa chỉ bỏ ký tự sau dấu "," thứ mấy...

Cột địa chỉ bỏ hết ký tự sau dấu "," đầu tiên. Còn kết quả mong muốn e đã nêu trong file rồi ạ

 

[Hoàng Tuấn 868]

Cột địa chỉ bỏ hết ký tự sau dấu "," đầu tiên. Còn kết quả mong muốn e đã nêu trong file rồi ạ

Bạn xem thử, vui lòng không viết tắt nhé.

 

[Quang_Hải]

E có file mẫu xuất từ phần mềm ra, tuy nhiên vẫn phải làm thủ công 1 số cột.
E lên đây nhờ anh chị em ai giúp 1 đoạn code để phục vụ nhanh trong công việc.
Các cột cần điền dữ liệu em mô tả trong file mẫu đính kèm.
Nếu được thì rất tuyệt vời, không được cũng không sao vì em vẫn làm thủ công hàng ngày ạ.
Rất chân thành cảm ơn

Thử dùng đoạn code này

Sub Xu_ly()
Dim sArr(), i As Long
With Sheets("D03")
    sArr = .Range("A2", .Range("A" & Rows.Count).End(3)).Resize(, 50).Value
End With
For i = 1 To UBound(sArr)
    sArr(i, 12) = sArr(i, 47)
    sArr(i, 18) = Split(sArr(i, 18), ",")(0)
    sArr(i, 28) = sArr(i, 5)
    sArr(i, 30) = Right("0" & Month(sArr(i, 28)), 2) & "/" & Year(sArr(i, 28))
    sArr(i, 42) = "K2"
Next
Sheets("D03").Range("A2").Resize(UBound(sArr), UBound(sArr, 2)) = sArr
End Sub

 

[dongbhhg]

Theo cách của Anh @Hoàng Tuấn 868 và Anh @Quang_Hải em đều làm được rồi ạ.
Nếu được nhờ các anh cải tiến thêm một đoạn nữa ở cột điền mã K2; điều kiện em có mô tả chi tiết trong file ạ. Em cảm ơn.