我嘗試從字串中跳過一個單詞，之后我想使用“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)
其中 Value A2 = "Aku Kamu Dia" C2 跳過原因 c2 在這里仍然沒有使用
我的希望結果：
Kamu Dia
但我得到：
#VALUE!
有人請幫我
uj5u.com熱心網友回復：
您錯過了函式的分隔符引數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
轉載請註明出處，本文鏈接：https://www.uj5u.com/qianduan/490351.html
上一篇：MicrosoftAccessVBA-使用SaveAs函式，但句點更改檔案格式
下一篇：“作業表”物件沒有屬性“單元格”