giúp chèn thêm kí tự vào 1 chuỗi (1 người xem)

[romkut3]

dạ tình hình em có 1 dãy số 234521600396 giời muốn chèn thêm 2 dấu cách vào mỗi sau mỗi chữ số: 2 3 4 5 2 1 6 0 0 3 9 6
nhờ các anh chị giúp em với ạ

 

[romkut3]

dạ em tìm ra cách làm = format cell rồi, nhưng dùng công thức thì chưa biết... anh chị nào ghé giúp em xử lý = công thức với ạ.

 

[befaint]

dạ tình hình em có 1 dãy số 234521600396 giời muốn chèn thêm 2 dấu cách vào mỗi sau mỗi chữ số: 2 3 4 5 2 1 6 0 0 3 9 6
nhờ các anh chị giúp em với ạ

Chép vào một module:

Function romkut(so As String) As String
Dim i As Integer
For i = 1 To Len(so)
    romkut = romkut & Mid(so, i, 1) & " "
Next i
romkut = Trim(romkut)
End Function

Công thức ở bảng tính:
Giả sử A1= 234521600396. Công thức tại B1:
=romkut(A1)

 

[Phuocam]

anh chị nào ghé giúp em xử lý = công thức với ạ.

Thử công thức này:

=TRIM(TEXT(A1,"# # # # # # # # # # # # # # # # "))

 

[ndu96081631]

dạ tình hình em có 1 dãy số 234521600396 giời muốn chèn thêm 2 dấu cách vào mỗi sau mỗi chữ số: 2 3 4 5 2 1 6 0 0 3 9 6
nhờ các anh chị giúp em với ạ

1> Cách 1: Dùng VBA
Chèn code dưới đây vào Module:

Function SeparateNum(ByVal text As String, ByVal delimiter As String) As String
  SeparateNum = Join(Split(StrConv(text, 64), Chr(0)), delimiter)
End Function

Ra ngoài bảng tính, gõ công thức:

=SeparateNum(A1,"  ")

Với cell A1 chưá chuỗi đầu vào
2> Cách 2: dùng công thức

=TEXT($A1,REPT("0  ",LEN($A1)))

 

[romkut3]

Chép vào một module:

Function romkut(so As String) As String
Dim i As Integer
For i = 1 To Len(so)
    romkut = romkut & Mid(so, i, 1) & " "
Next i
romkut = Trim(romkut)
End Function

Công thức ở bảng tính:
Giả sử A1= 234521600396. Công thức tại B1:
=romkut(A1)

cámơnbạnnhé,tìmnútthankkthấy

 

[romkut3]

Thử công thức này:
=TRIM(TEXT(A1,"# # # # # # # # # # # # # # # # "))

thánk bạn nha, tìm nút thanks k thấy

 

[romkut3]

1> Cách 1: Dùng VBA
Chèn code dưới đây vào Module:

Function SeparateNum(ByVal text As String, ByVal delimiter As String) As String
  SeparateNum = Join(Split(StrConv(text, 64), Chr(0)), delimiter)
End Function

Ra ngoài bảng tính, gõ công thức:

=SeparateNum(A1,"  ")

Với cell A1 chưá chuỗi đầu vào
2> Cách 2: dùng công thức

=TEXT($A1,REPT("0  ",LEN($A1)))

dạ cám ơn anh, diễn đàn bỏ nút thanks rồi sao k thấy ạ