Chào các bạn, mình có cột dữ liệu định dạng theo kiểu text, các bạn giúp mình viết VBA để tự động copy sang cột khác và định dạng theo date (dd/mm/yyyy). Cảm ơn các bạn.
=DATE(RIGHT(B2,4),MID(B2,4,2),LEFT(B2,2))
Nhưng dữ liệu của mình nhiều nên dùng công thức thì hơi nặng, nên mình muốn dùng VBA.Dùng hàm cắt chuỗi bình thường cũng được chứ cần gì VBA
Dù là VBA người ta cũng sẽ tách từng thành phần ra rồi ráp lại vào hàm DateSerial thôi ---> Như nhau cảMã:=DATE(RIGHT(B2,4),MID(B2,4,2),LEFT(B2,2))
Nhưng dữ liệu của mình nhiều nên dùng công thức thì hơi nặng, nên mình muốn dùng VBA.
Bạn có thể giúp mình bằng VBA, vì số liệu thường xuyên thay đổi, nhưng mỗi lần thay đổi lại thực hiện như vậy thì nhiều lắm.Giải thuật đã có rồi đấy, chỉ ráp vào thôi
(trong VBA thì hàm Left, Mid, Right cũng tượng tự)
-----------------------
Bạn cũng có thể chọn 1 cách khác khá đơn giản thế này:
- Đầu tiên chỉnh lại định dạng Date trong Control Panel thành d/M/yy
- Xong, trở lại bảng tính, quét chọn dữ liệu rồi bấm Ctrl + H. Khung Find what bạn gõ dấu /, khung Replace with bạn cũng gõ dấu /. Cuối cùng bấm Replace All là xong
Bạn có thể giúp mình bằng VBA, vì số liệu thường xuyên thay đổi, nhưng mỗi lần thay đổi lại thực hiện như vậy thì nhiều lắm.