从Excel VBA中的字符串中删除额外的逗号

我想在我的电子表格中插入三个不同下拉列表中的数据，但我有几个困难。有三个下拉列表，分别称为cbo_fac1、cbo_fac2和cbo_fac3

---

以下是使用案例：

用例1-导致将

无偏好插入电子表格中

cbo_fac1 - No preference
cbo_fac2 - No preference 
cbo_fac3 - No preference 

用例2a-导致将
值插入到电子表格中。应该是
值

cbo_fac1 - Value
cbo_fac2 - No preference
cbo_fac3 - No preference 

cbo_fac1 - No preference
cbo_fac2 - Value
cbo_fac3 - No preference

cbo_fac1 - No preference 
cbo_fac2 - No preference 
cbo_fac3 - Value

cbo_fac1 - Value
cbo_fac2 - Value 
cbo_fac3 - No preference

cbo_fac1 - No preference
cbo_fac2 - Value 
cbo_fac3 - Value  

cbo_fac1 - Value
cbo_fac2 - No preference
cbo_fac3 - Value      

用例2b-导致将
值插入电子表格中。应该是
值

cbo_fac1 - Value
cbo_fac2 - No preference
cbo_fac3 - No preference 

cbo_fac1 - No preference
cbo_fac2 - Value
cbo_fac3 - No preference

cbo_fac1 - No preference 
cbo_fac2 - No preference 
cbo_fac3 - Value

cbo_fac1 - Value
cbo_fac2 - Value 
cbo_fac3 - No preference

cbo_fac1 - No preference
cbo_fac2 - Value 
cbo_fac3 - Value  

cbo_fac1 - Value
cbo_fac2 - No preference
cbo_fac3 - Value      

用例2c-导致将
、值插入电子表格。应该是
值

cbo_fac1 - Value
cbo_fac2 - No preference
cbo_fac3 - No preference 

cbo_fac1 - No preference
cbo_fac2 - Value
cbo_fac3 - No preference

cbo_fac1 - No preference 
cbo_fac2 - No preference 
cbo_fac3 - Value

cbo_fac1 - Value
cbo_fac2 - Value 
cbo_fac3 - No preference

cbo_fac1 - No preference
cbo_fac2 - Value 
cbo_fac3 - Value  

cbo_fac1 - Value
cbo_fac2 - No preference
cbo_fac3 - Value      

用例3a-导致将
值、值插入到电子表格中。应该是
value，value

cbo_fac1 - Value
cbo_fac2 - No preference
cbo_fac3 - No preference 

cbo_fac1 - No preference
cbo_fac2 - Value
cbo_fac3 - No preference

cbo_fac1 - No preference 
cbo_fac2 - No preference 
cbo_fac3 - Value

cbo_fac1 - Value
cbo_fac2 - Value 
cbo_fac3 - No preference

cbo_fac1 - No preference
cbo_fac2 - Value 
cbo_fac3 - Value  

cbo_fac1 - Value
cbo_fac2 - No preference
cbo_fac3 - Value      

用例3b-将
、值、值插入电子表格。应该是
value，value

cbo_fac1 - Value
cbo_fac2 - No preference
cbo_fac3 - No preference 

cbo_fac1 - No preference
cbo_fac2 - Value
cbo_fac3 - No preference

cbo_fac1 - No preference 
cbo_fac2 - No preference 
cbo_fac3 - Value

cbo_fac1 - Value
cbo_fac2 - Value 
cbo_fac3 - No preference

cbo_fac1 - No preference
cbo_fac2 - Value 
cbo_fac3 - Value  

cbo_fac1 - Value
cbo_fac2 - No preference
cbo_fac3 - Value      

用例3c-导致将
值、值插入电子表格。应该是
value，value

cbo_fac1 - Value
cbo_fac2 - No preference
cbo_fac3 - No preference 

cbo_fac1 - No preference
cbo_fac2 - Value
cbo_fac3 - No preference

cbo_fac1 - No preference 
cbo_fac2 - No preference 
cbo_fac3 - Value

cbo_fac1 - Value
cbo_fac2 - Value 
cbo_fac3 - No preference

cbo_fac1 - No preference
cbo_fac2 - Value 
cbo_fac3 - Value  

cbo_fac1 - Value
cbo_fac2 - No preference
cbo_fac3 - Value      


如何删除用例2a-3c中的额外逗号

以下是我目前的代码：

If Me.cbo_fac1 <> "No preference" Then
cbo_fac1Entry = Me.cbo_fac1.Value
Else
cbo_fac1Entry = ""
End If

If Me.cbo_fac2 <> "No preference" Then
cbo_fac2Entry = Me.cbo_fac2.Value
Else
cbo_fac2Entry = ""
End If

If Me.cbo_fac3 <> "No preference" Then
cbo_fac3Entry = Me.cbo_fac3.Value
Else
cbo_fac3Entry = ""
End If

cbo_facEntry = cbo_fac1Entry & ", " & cbo_fac2Entry & ", " & cbo_fac3Entry

If cbo_facEntry = " , ," Then
cbo_facEntry = "No preference"
Else
End If
rng1.Offset(1, 15) = cbo_facEntry

之后：

If cbo_facEntry = ",," Then
cbo_facEntry = "No Preference"
Else
End If

但是它没有多大区别，因为它不能满足所有用例的要求，并且还返回无效的语法错误消息


提前谢谢
 下面是一个简单的片段：

Dim a(2) As String
a[0] = cbo_fac1
a[1] = cbo_fac2
a[2] = cbo_fac3

Dim I As Integer, result As String
For I = 0 To UBound(a)
    If a(I) <> "No Preference" Then
        If I = 0 Then
            result = a(I)
        Else
            result = result & "," & a(I)
        End If
    End If
Next

Dim a（2）作为字符串
a[0]=cbo_fac1
a[1]=cbo_fac2
a[2]=cbo_fac3
Dim I为整数，结果为字符串
对于I=0到UBound（a）
如果a（I）“无偏好”，则
如果I=0，那么
结果=a（I）
其他的
结果=结果&“，”&a（I）
如果结束
如果结束
下一个

我还没有测试过这段代码，但您应该知道了。
这里是一个简单的代码片段：

Dim a(2) As String
a[0] = cbo_fac1
a[1] = cbo_fac2
a[2] = cbo_fac3

Dim I As Integer, result As String
For I = 0 To UBound(a)
    If a(I) <> "No Preference" Then
        If I = 0 Then
            result = a(I)
        Else
            result = result & "," & a(I)
        End If
    End If
Next

Dim a（2）作为字符串
a[0]=cbo_fac1
a[1]=cbo_fac2
a[2]=cbo_fac3
Dim I为整数，结果为字符串
对于I=0到UBound（a）
如果a（I）“无偏好”，则
如果I=0，那么
结果=a（I）
其他的
结果=结果&“，”&a（I）
如果结束
如果结束
下一个

我还没有测试过这段代码，但您应该了解这一点。
您可以将这三行代码添加到您的代码中，而不是您尝试过的内容：

cbo_facEntry = Replace(cbo_facEntry, ", , ", ", ")
If Left(cbo_facEntry, 1) = "," Then cbo_facEntry = Right(cbo_facEntry, Len(cbo_facEntry) - 2)
If Right(cbo_facEntry, 2) = ", " Then cbo_facEntry = Left(cbo_facEntry, Len(cbo_facEntry) - 2)

您可以将这三行代码添加到您的代码中，而不是您尝试过的内容：

cbo_facEntry = Replace(cbo_facEntry, ", , ", ", ")
If Left(cbo_facEntry, 1) = "," Then cbo_facEntry = Right(cbo_facEntry, Len(cbo_facEntry) - 2)
If Right(cbo_facEntry, 2) = ", " Then cbo_facEntry = Left(cbo_facEntry, Len(cbo_facEntry) - 2)

谢谢你的回复。我应该将此代码放在我已有代码的上下文中的何处？您可以使用此代码而不是当前代码（只需将我代码中的cbo_fac1、cbo_fac2、cbo_fac3替换为Me.cbo_fac1、Me.cbo_fac2、Me.cbo_fac3），谢谢您的回复。我应该将此代码放在我已有的上下文中的何处？您可以使用此代码而不是当前代码（只需将我代码中的cbo_fac1、cbo_fac2、cbo_fac3替换为Me.cbo_fac1、Me.cbo_fac2、Me.cbo_fac3）如果cbo_facEntry=“，”那么
代码段？如果cbo_facEntry=“，”那么我是否将其放在
之后然后
代码段？