Hàm lấy chữ cái đầu ở mỗi chữ trong Excel

Bài này mình sẽ hướng dẫn cách lấy chữ cái đầu tiên ở mỗi chữ trong Excel. Chúng ta sẽ tạo một hàm riêng bằng VBA (hàm CCD) để tách chữ.

Mẹo: Có một cách rất dễ là bạn viết mẫu một dòng rồi Ctrl + E các dòng còn lại, nó sẽ tự hiểu. Tuy nhiên nhiều trường hợp nó cũng bị sai nên vẫn phải dùng VBA.

Đầu tiên bạn hãy mở trình soạn thảo Module VBA trong Excel lên:

– Bấm tổ hợp phím Alt + F11.

– Bấm Insert > Module.

Mở trình soạn thảo Module VBA trong Excel

Copy đoạn code này vô khung soạn thảo:

Function CCD(my_string As String) As String
my_string = Trim(my_string)
Dim buff() As String
ReDim buff(Len(my_string) - 1)
For i = 1 To Len(my_string)
buff(i - 1) = Mid$(my_string, i, 1)
Next
CCD = buff(0)
For i = LBound(buff) + 1 To UBound(buff)
If buff(i - 1) = " " Then
CCD = CCD + buff(i)
End If
Next i
End Function