用绳子

Question

我已经在细胞下列字符串值一样

"EnglishText/OtherLanguageText" 
or 
"UniversalText" 

我需要从2子像 “EnglishText”和“OtherLanguageText” 或 “UniversalText”（文字VBA的Excel工作，这不包含 “/”）

与命令

wbImportFrom.Sheets("Sheet 4").Cells(4, 6 + x).Value 

我如何能做到这一点

林选择数据？ :-) 谢谢

Answer 1

检查Split功能，并使用“/”作为分隔符。

喜欢的东西

My_String = Sheets("Sheet 4").cells(4, 6 + x).value 
String_array = Split(My_String,"/") 

应该做的伎俩。请记住，您将使用数组。

来源： http://msdn.microsoft.com/en-us/library/6x627e5f(v=vs.90).aspx

在VBA