切割字符串Excel vba答案

【问题标题】：Cutting Strings Excel vba切割字符串Excel vba
【发布时间】：2014-03-18 15:07:14
【问题描述】：

我有这些看起来像这样的字符串。

NAME,"SAM"
NAME,"ADAM"
NAME,"ALEXANDER"
NAME,"SARAH"

我只需要真实姓名。例如，“SAM”表示第一行。如何剪断不需要的绳子的其他部分？要使用什么功能？提前致谢！

【问题讨论】：

您需要VBA 解决方案吗？还是您错过了正确的标签？
我只是想知道 vba 中剪切字符串的语法。一些示例代码会很好。我会尝试一些代码，但在这种情况下我不知道从哪里开始。

标签： excel vba

【解决方案1】：

试试这个-

=IFERROR(RIGHT(E9, FIND(",", E9, 1)), E9)

其中 E9 是一个示例单元格。

基本上我们是在搜索一个逗号 (,) 然后取文本的右边。

你在写 VBA 代码吗？

在这种情况下使用以下 -

splitString= Split(<cellValue>, ",")

这将尝试根据指定的分隔符拆分字符串并返回一个值数组。

编辑2：

Dim splitString() As String
splitString = Split(Range("F9").Value, ",")

If (UBound(splitString) > 0) Then
    Range("G9").Value = splitString(1)
End If

【讨论】：

它返回未定义的“查找”。这是我输入的： Range("G9").Value = IfError(Right(E9, Find(",", E9, 1)), E9)
好的，这就是我现在正在做的测试它是否有效。我有包含名称“SAM”的单元格 F9。我已将您的代码稍微修改为： Range("G9").Value = Split(Range("F9").Value, ",")。这会将“NAME”写入单元格 G9。我这样做正确吗？我需要逗号的右侧。

【解决方案2】：

试试这个：

使用Split Function（评估是可选的）：

Dim mystring

mystring = Split([Sheet1!B2], ",")
[Sheet1!C2] = mystring(UBound(mystring))

括号[]是Evaluate Function的快捷方式。
所以也可以这样写：

mystring = Split(Evaluate("Sheet1!B2"), ",")
Evaluate("Sheet1!C2") = mystring(UBound(mystring))

使用Right Function 加上InStr or InStrRev 加上Len（评估是可选的）：

[Sheet1!D2] = Right([Sheet1!B2], InStr([Sheet1!B2], ",") - Len([Sheet1!B1]))

Evaluate 是可选的。您可以将其更改为常规的Range object，例如Range("B2")
希望这会有所帮助。
哦，你问的是语法，见下文：

Split(Expression As String,[Delimiter],[Limit As Long],[Compare As VbCompareMethod])
Len(Text)
Right(Text, [number of characters])
InStr([Start],[String1(where to search)], _
      [String2(what to search)],[Compare As VbCompareMethod])
Evaluate(Name)
Ubound(array) / Lbound(array)

【讨论】：

感谢您的帮助！