准提部林

一個字串中有幾組雙引號？
也許最好多提供些例子！

先以一組雙引號為例:
=LOOKUP("龥",IF({1,0},A1&"",REPLACE(A1,FIND(" ",A1,SEARCH("""* *""",A1)),1,"_")))
或
=IF(ISERR(SEARCH("""* *""",A1)),A1&"",REPLACE(A1,FIND(" ",A1,SEARCH("""* *""",A1)),1,"_"))

准提部林

雙引號組數有多組, 文字字元數不固定, 可考慮自訂函數：
Function Replace_Space(xStr$) As String
Dim i%, N%, K%, T$, TT$
For i = 1 To Len(xStr)
　　T = Mid(xStr, i, 1)
　　'＿逐一取出字串的字元　
　　If T = """" Then N = 1 - N:  K = 0　
　　'＿T若為雙引號，Ｎ值轉換成１或０＿當N=0，1-0=1＿當N=1，1-1=0＿Ｋ歸零　
　　If N = 1 And K = 0 Then K = InStr(i + 1, xStr, """")
　　'＿當N=1，表示是每對雙引號的〔第１個〕，再去檢查其後是否有另一個雙引號可配對，若有，則Ｋ＞０　　
　　If K > 0 And T = " " Then T = "_"　
　　'＿當Ｋ＞０，表示〔空白格〕仍在雙引號範圍中，取代為"_"，直至再遇到下一個雙引號為結束，Ｎ及Ｋ返回０　
　　TT = TT & T
Next i
Replace_Space = TT
End Function


公式：=Replace_Space(A1)　

准提部林

回復 7# VANESSA


樓上已加入註解，邏輯很簡單，但須花些時間去理解！

准提部林

If N = 1 And K = 0 Then K = InStr(i + 1, xStr, """")

改成如下，可提示雙引號無配對：
If N = 1 And K = 0 Then
　　K = InStr(i + 1, xStr, """")
　　If K = 0 Then TT = "雙引號無法配對, 請檢查!": Exit For
End If