Em muốn thêm một khoảng trắng giữa 2 ký tự. (1 người xem)

[70211119]

Em có một dữ liệu gồm 15000 dòng.
[...]
234Lê Duẩn
Hẻm 30Trường Chinh
268/23/4Lê Đình Chinh
[...]
Mục đích là e muốn thêm 1 khoảng trắng giữa ký tự số và chữ trong chuỗi đó.
Có bác nào biết cách không ạ? Dùng hàm hay VBA đều được ạ.
Em xin chân thành cảm ơn ạ.

 

[befaint]

Em có một dữ liệu gồm 15000 dòng.
[...]
234Lê Duẩn
Hẻm 30Trường Chinh
268/23/4Lê Đình Chinh
[...]
Mục đích là e muốn thêm 1 khoảng trắng giữa ký tự số và chữ trong chuỗi đó.
Có bác nào biết cách không ạ? Dùng hàm hay VBA đều được ạ.
Em xin chân thành cảm ơn ạ.

Ví dụ:
Số 30AĐại Cồ Việt
thì tính sao?
-----
Gửi 15 ngàn dòng lên coi.

 

[70211119]

Ví dụ:
Số 30AĐại Cồ Việt
thì tính sao?
-----
Gửi 15 ngàn dòng lên coi.

E chỉ cần mấy cái số nhà thôi ạ. 30 AĐại Cố Việt cũg hôg s. Số liệu đó e để trên cơ quan rồi ạ. 45MB nên hôg gửi mail về đc. E chỉ nhớ yêu cầu sếp rồi về mò. Mò hôg ra nên e lên đây hỏi ạ.

 

[befaint]

E chỉ cần mấy cái số nhà thôi ạ. 30 AĐại Cố Việt cũg hôg s. Số liệu đó e để trên cơ quan rồi ạ. 45MB nên hôg gửi mail về đc. E chỉ nhớ yêu cầu sếp rồi về mò. Mò hôg ra nên e lên đây hỏi ạ.

Public Function AddSpace(ByVal Txt As String) As String
Dim i As Long, nTmp As String, sTmp As String
For i = 1 To Len(Txt) - 1
    nTmp = Mid(Txt, i, 1)
    sTmp = Mid(Txt, i + 1, 1)
    If IsNumeric(nTmp) = True Then
        If IsNumeric(sTmp) = False Then
            If sTmp <> "/" And sTmp <> "-" And sTmp <> "." And sTmp <> " " Then
                Txt = Mid(Txt, 1, i) & " " & Mid(Txt, i + 1, Len(Txt))
                Exit For
            End If
        End If
    End If
Next i
AddSpace = Application.WorksheetFunction.Trim(Txt)
End Function
'-------------------'
Sub hibe()
Application.Calculation = xlCalculationManual
Dim Arr(), i As Long
Arr = DataRange.Value  'DataRange là vùng chứa 15 ngàn dòng'
For i = 1 To UBound(Arr, 1)
    If Arr(i, 1) <> "" Then
        Arr(i, 1) = AddSpace(Arr(i, 1))
    End If
Next i
DataRange = Arr
Application.Calculation = xlCalculationAutomatic
End Sub

 

[Vô danh Tiểu tốt]

...

 

[70211119]

Cảm ơn bác aj! Rất hiệu quả!

Public Function AddSpace(ByVal Txt As String) As String
Dim i As Long, nTmp As String, sTmp As String
For i = 1 To Len(Txt) - 1
    nTmp = Mid(Txt, i, 1)
    sTmp = Mid(Txt, i + 1, 1)
    If IsNumeric(nTmp) = True Then
        If IsNumeric(sTmp) = False Then
            If sTmp <> "/" And sTmp <> "-" And sTmp <> "." And sTmp <> " " Then
                Txt = Mid(Txt, 1, i) & " " & Mid(Txt, i + 1, Len(Txt))
                Exit For
            End If
        End If
    End If
Next i
AddSpace = Application.WorksheetFunction.Trim(Txt)
End Function
'-------------------'
Sub hibe()
Application.Calculation = xlCalculationManual
Dim Arr(), i As Long
Arr = DataRange.Value  'DataRange là vùng chứa 15 ngàn dòng'
For i = 1 To UBound(Arr, 1)
    If Arr(i, 1) <> "" Then
        Arr(i, 1) = AddSpace(Arr(i, 1))
    End If
Next i
DataRange = Arr
Application.Calculation = xlCalculationAutomatic
End Sub