Excel的检查由逗号

-4

分离LEN字符串我有我的字符串Excel的检查由逗号

15f,158,1669,187,15,156,47t

如何修剪其莱恩<> 3

所以必须离开

15f,158,187,156,47t

的所有数据和MSGBOX我什么是删除

来源

2014-06-10 user3722021

SO是不是免费的代码服务。询问代码的问题必须证明对所解决问题的最小理解。 _包括尝试的解决方案，为什么他们不工作，以及预期的结果。另请参阅：[help] –

将字符串拆分为数组，然后迭代数组中的元素以连接新字符串，省略这些值Len是<> 3。 –

@David Zemens的想法..这应该工作。测试

Sub test() 
Dim str As String 
Dim s() As String 


str = "15f,158,1669,187,15,156,47t" 
s = Split(str, ",") 


For i = LBound(s) To UBound(s) 

If Len(s(i)) = 3 Then 

t = IIf(t = "", s(i), t & "," & s(i)) 

End If 

Next i 

MsgBox (t) 

End Sub

来源

2014-06-10 14:55:27

Excel的检查由逗号

回答

相关问题