Xin hỏi cách tách chữ trong cụm từ (1 người xem)

[maiban116]

em có ví dụ. mốn dùng công thức tách từng chữ của một cụm từ ra mỗi chữ một ô. xin hỏi cả nhà có cách nào không.

 

[Nguyễn Hồng Quang]

em có ví dụ. mốn dùng công thức tách từng chữ của một cụm từ ra mỗi chữ một ô. xin hỏi cả nhà có cách nào không.

Dùng chức năng text to column rồi sau đó copy / Paste /Transpose

 

[snow25]

em có ví dụ. mốn dùng công thức tách từng chữ của một cụm từ ra mỗi chữ một ô. xin hỏi cả nhà có cách nào không.

Đây bạn xem.

Function tachchu(ByVal chuoi As String, ByVal so As Integer, Optional phancach = " ") As String
Dim a As Long, T, at As String
T = Split(phancach & chuoi, phancach)
If so >= 1 And so <= UBound(T) Then
   at = T(so)
Else
   at = Empty
End If
  tachchu = at
End Function

=tachchu($A$1,ROW(A1))

 

[saobekhonglac]

em có ví dụ. mốn dùng công thức tách từng chữ của một cụm từ ra mỗi chữ một ô. xin hỏi cả nhà có cách nào không.

Xem ok chưa

B2=TRIM(MID(SUBSTITUTE($A$1," ",REPT(" ",100)),1+(ROW($A1)-1)*100,100))

 

[VetMini]

Đây bạn xem.

Function tachchu(ByVal chuoi As String, ByVal so As Integer, Optional phancach = " ") As String
Dim a As Long, T, at As String
T = Split(phancach & chuoi, phancach)
If so >= 1 And so <= UBound(T) Then
   at = T(so)
Else
   at = Empty
End If
  tachchu = at
End Function

=tachchu($A$1,ROW(A1))

Loại vấn đề này tôi chỉ vài lần rồi. Lập trình kiểu này là của tay mơ, dùng để chữa cháy. Nó được bắt đầu bởi các tay kỳ cựu trong diễn đàn rồi người ta giữ theo luôn.

Giải pháp đúng đắn là viết một hàm tách từ và trả về một mảng, cộng thêm một hàm khác gọi hảm này và trả từng phần tử trong mảng theo nhu cầu.
Ngừoi dùng có thể dùng hàm mảng để lấy cả mảng hay hàm kia để lấy từng phần.

Chú: khi dùng hàm split với dấu cách thì nên xét có cần trim trước hay không, đề phòng trường hợp chuỗi có dư dấu cách