Cắt một chuỗi và lấy chuỗi con ở vị trí thứ n trong Excel

Đoạn code cắt một chuỗi và lấy chuỗi con ở vị trí thứ n trong excel :
Gist:

	' rng: Cell chứa chuỗi cần cắt
	' c : chuỗi con dùng làm delimiter
	' n : vị trí chuỗi con cần lấy (bắt đầu từ 0)
	Function TokenizeAt(rng As Range, c As String, n As Integer)
	Dim ret As String
	If (rng.Cells.Count > 1) Then
	ret = "Only allow 1 cell"
	End If
	Dim strArr() As String
	strArr = Split(rng, c)
	ret = strArr(n)
	TokenizeAt = ret
	End Function

view raw Tokenize.bas hosted with ❤ by GitHub