excel - 如何在有符号的Excel 2007 VBA中修剪单元格中的数据

Question

我想修剪单元格内的数据，以便在连字符之前拥有一切

例如，如果一个单元格包含：

'Net Operating Loss - All Pre-1990 Carryforwards'

我想以这样的方式修剪它，我只有：

'Net Operating Loss'

关于如何做到这一点的任何建议

Answer 1

像这样？

Option Explicit

Sub Sample()
    Dim strSample As String

    strSample = "Net Operating Loss - All Pre-1990 Carryforwards"

    Debug.Print Split(strSample, "-")(0)
End Sub

顺便说一句，您是否需要在 VBA 中执行此操作。以上也可以使用 Excel 公式来实现。

假设您在单元格 A1 中有“净营业损失 - 所有 1990 年之前的结转”，然后将其放入单元格 B1

优秀2003

=IF(ISERROR(MID(A1,1,FIND("-",A1,1)-1)),"",MID(A1,1,FIND("-",A1,1)-1))

EXCEL 2007 及以后

=IFERROR(MID(A1,1,FIND("-",A1,1)-1),"")

Answer 2

嗨，

您使用 InStr 搜索连字符并将结果位置用作 Right Command 的长度。

dim p as integer
p = InStr(YourStr, '-');
Trim(Right(YourStr, p - 1))

这里有一点参考http://www.techonthenet.com/access/functions/index.php