Tìm và thay thế theo định dạng (3 người xem)

[minhlaban009]

Mình có chuỗi như vầy 474/10/289/25/61/9/7 phải giữ lại 474/10/. Còn lại nếu sau dấu / có 2 số thì thêm một số 0 dằng trước, 1 số thì thêm hai số 0, 3 số thì giữ nguyên
ví dụ: 474/10/289/025/061/009/007
Nhờ Mọi người giúp

 

[gtri]

Mình có chuỗi như vầy 474/10/289/25/61/9/7 phải giữ lại 474/10/. Còn lại nếu sau dấu / có 2 số thì thêm một số 0 dằng trước, 1 số thì thêm hai số 0, 3 số thì giữ nguyên
ví dụ: 474/10/289/025/061/009/007
Nhờ Mọi người giúp

Bài nay cũng không khó nhưng phải có file đính kèm cùng kết quả giả định mới làm được

 

[vu_tuan_manh_linh]

Sử dụng Text to columns, sau đó nối chuỗi bằng hàm là ok. Hơi thủ công một tý.

 

[minhlaban009]

Sử dụng Text to columns, sau đó nối chuỗi bằng hàm là ok. Hơi thủ công một tý.

Bạn hướng dẫn cụ thể được không?]

 

[minhlaban009]

ví dụ: 474/10/289/25/61/9/7
thành 474/10/289/025/061/009/007
chuỗi này có thể nhiều dấu "/" hơn nữa

 

[Quang_Hải]

Mình có chuỗi như vầy 474/10/289/25/61/9/7 phải giữ lại 474/10/. Còn lại nếu sau dấu / có 2 số thì thêm một số 0 dằng trước, 1 số thì thêm hai số 0, 3 số thì giữ nguyên
ví dụ: 474/10/289/025/061/009/007
Nhờ Mọi người giúp

Dùng VBA thì khỏi suy nghĩ nhiều

 

[TrungChinhs]

Dùng VBA thì khỏi suy nghĩ nhiều

Function DinhDang(cell As String, delimiter As String)
Dim Str$, Tem
Str = cell
Tem = Split(Str, delimiter)
For i = 2 To UBound(Tem)
   If Len(Tem(i)) < 3 Then
      Tem(i) = Right("000" & Tem(i), 3)
   End If
Next
DinhDang = Join(Tem, delimiter)
End Function

To quanghai1969: Theo mình thì có thể bỏ if đi cho code gọn lại một tý

 

[Quang_Hải]

To quanghai1969: Theo mình thì nên bỏ if đi cho code gọn lại một tý

Bỏ đi không an toàn, lỡ như mấy cụm phía sau đó nhiều hơn 3 ký tự thì hơi kẹt.

 

[minhlaban009]

Cảm ơn mọi người nhé