Giúp em VBA và đổi kiểu ngày tháng năm (1 người xem)

[hahavuive]

Chào các anh chị trong group. Em xin nhờ giúp đỡ như sau ạ: khi mở file lên thì các cột B-D-F-H-J-L-N-P-R-T-V-X nó đang ở kiểu general 2020-03-13(Năm-Tháng-Ngày). EM muốn từ đây đổi về thành 13032020 (Ngày tháng năm) viết liền, nó sẽ có trường hợp là bị mất số không ở đầu ví dụ 09092020 thành 992020. Mong mọi người giúp em đoạn code VBA để có thể làm nhanh hơn ạ. Em xin gửi kèm file ở dưới. Em cảm ơn các anh/ chị đã đọc.

 

[bebo021999]

Xài đỡ cái code cùi bắp này nhé:

Option Explicit
Sub ngaythang()
Dim i&, j&, rng, sp
rng = Range("A1").CurrentRegion.Value
For j = 2 To UBound(rng, 2) Step 2
    For i = 2 To UBound(rng)
        sp = Split(rng(i, j), "-")
        If UBound(sp) = 2 Then rng(i, j) = Format(sp(2) & sp(1) & sp(0), "00000000")
    Next
    Range(Cells(2, j), Cells(UBound(rng), j)).NumberFormat = "00000000"
Next
Range("A1").Resize(UBound(rng), UBound(rng, 2)).Value = rng
End Sub

 

[hahavuive]

Xài đỡ cái code cùi bắp này nhé:

Option Explicit
Sub ngaythang()
Dim i&, j&, rng, sp
rng = Range("A1").CurrentRegion.Value
For j = 2 To UBound(rng, 2) Step 2
    For i = 2 To UBound(rng)
        sp = Split(rng(i, j), "-")
        If UBound(sp) = 2 Then rng(i, j) = Format(sp(2) & sp(1) & sp(0), "00000000")
    Next
    Range(Cells(2, j), Cells(UBound(rng), j)).NumberFormat = "00000000"
Next
Range("A1").Resize(UBound(rng), UBound(rng, 2)).Value = rng
End Sub

Dạ em cảm ơn anh nhiều ạ, code chạy rất mượt, em xin cảm ơn.