làm vba thì dễ hơn b ạ, làm hàm nó hơi dàiDùng hàm, công thức nào để lấy ký tự đầu của mỗi từ trong một danh sách. Nhờ mọi người giúp dùm, xin cảm ơn.
Function tach(chuoi As String) As String
Dim arr, i As Integer
arr = Split(chuoi, " ")
For i = 0 To UBound(arr)
tach = tach & Left(arr(i), 1)
Next
End Function
Nếu được có thể làm hàm, vì mình đang học hỏi. Làm VBA thì không học gì được hết. Xin cảm ơn.làm vba thì dễ hơn b ạ, làm hàm nó hơi dài




Chào bạn,Nếu được có thể làm hàm, vì mình đang học hỏi. Làm VBA thì không học gì được hết. Xin cảm ơn.
dùng thử công thứcDùng hàm, công thức nào để lấy ký tự đầu của mỗi từ trong một danh sách. Nhờ mọi người giúp dùm, xin cảm ơn.
B2 =LEFT(A2,1)&MID(A2,FIND(" ",A2&" ")+1,1)&MID(A2,FIND("#",SUBSTITUTE(A2&" "," ","#",2))+1,1)&MID(A2,FIND("#",SUBSTITUTE(A2&" "," ","#",3))+1,1)&MID(A2,FIND("#",SUBSTITUTE(A2&" "," ","#",4))+1,1)&MID(A2,FIND("#",SUBSTITUTE(A2&" "," ","#",5))+1,1)
Dùng hàm, công thức nào để lấy ký tự đầu của mỗi từ trong một danh sách. Nhờ mọi người giúp dùm, xin cảm ơn.
=LEFT(A2)&LEFT(TRIM(MID(SUBSTITUTE(A2," ",REPT(" ",255)),255,255)))&LEFT(TRIM(MID(SUBSTITUTE(A2," ",REPT(" ",255)),255*2,255)))&LEFT(TRIM(MID(SUBSTITUTE(A2," ",REPT(" ",255)),255*3,255)))&LEFT(TRIM(MID(SUBSTITUTE(A2," ",REPT(" ",255)),255*4,255)))
Nếu được có thể làm hàm, vì mình đang học hỏi.
Dùng hàm, công thức nào để lấy ký tự đầu của mỗi từ trong một danh sách. Nhờ mọi người giúp dùm, xin cảm ơn.