在Excel中从字符串中删除额外的逗号
在Excel中从字符串中删除额外的逗号
提问于 2012-10-30 13:54:43
我想在我的电子表格中插入来自三个不同下拉列表的数据，但是我遇到了一些困难。有三个跌落，叫做cbo_fac1，cbo_fac2和cbo_fac3。
下面是用例：
用例1 -将No preference插入电子表格中的结果
cbo_fac1 - No preference
cbo_fac2 - No preference
cbo_fac3 - No preference 用例2a -在电子表格中插入value, ,的结果。应该是value
cbo_fac1 - Value
cbo_fac2 - No preference
cbo_fac3 - No preference 用例2b -将, value,插入到电子表格中。应该是value
cbo_fac1 - No preference
cbo_fac2 - Value
cbo_fac3 - No preference用例2c -将, , value插入到电子表格中。应该是value
cbo_fac1 - No preference
cbo_fac2 - No preference
cbo_fac3 - Value用例3a -将value, value,插入到电子表格中。应该是value, value
cbo_fac1 - Value
cbo_fac2 - Value
cbo_fac3 - No preference用例3b -将, value, value插入到电子表格中。应该是value, value
cbo_fac1 - No preference
cbo_fac2 - Value
cbo_fac3 - Value 用例3c -将value, , value插入到电子表格中。应该是value, 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 right(cbo_facEntry,1)="," then
cbo_facEntry= left(len(cbo_facEntry)-1)
end if
if left(cbo_facEntry,1)="," then
cbo_facEntry= right(len(cbo_facEntry)-1)
end if之后：
If cbo_facEntry = ",," Then
cbo_facEntry = "No Preference"
Else
End If但是这并没有多大的区别，因为它没有满足所有用例的需求，并且还返回无效的语法错误消息。
提前感谢！
回答 2
Stack Overflow用户
回答已采纳
发布于 2012-10-30 15:00:12
您可以将这三行代码添加到代码中，而不是您尝试过的代码：
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)Stack Overflow用户
发布于 2012-10-30 14:10:08
下面是一个简单的片段：
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我还没有测试过这段代码，但是你应该知道这个想法。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/13140533
复制相关文章
相似问题
腾讯云开发者
