在分割字符串后无法组合字符串VBA Excel

Question

我尝试从字符串中跳过一个单词，然后我想将已经分割成一个的字符串组合起来，使用"for"循环，但是，当我想再次合并拆分的单词时，我无法得到我想要的结果。

这是我的代码:

Function FindData(lookup_value As String, tbl_array As Range) As String
Dim Text As String, SplitText() As String
Dim j As Integer, CountText As Integer
SplitText = Split(lookup_value)
CountText = UBound(SplitText()) + 1
For j = 1 To CountText
Text = Text & SplitText(j) & " "
Next j
FindData = Text
End Function

输入是:

=FindData(A2,C2)

Where Value A2 = "Aku Kamu diae "C2跳过，因为这里仍然没有使用C2

My Hope Result:

Kamu Dia

但是我得到:

#VALUE!

谁来帮帮我

Answer 1

您错过了分隔符Split()函数参数。从你的预期结果来看，你似乎在尝试跳过第一个单词。所以，尝试从数组的第二个元素连接。从1作为数组位置开始循环，始终从0的零位开始。

Function FindData(lookup_value As String, tbl_array As Range) As String
Dim Text As String, SplitText() As String
Dim j As Integer, CountText As Integer
SplitText = Split(lookup_value, " ")
For j = 1 To UBound(SplitText)
Text = Text & SplitText(j) & " "
Next j
FindData = Text
End Function