如何在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

Hy，

您可以使用 InStr 搜索连字符，并将结果位置用作右命令的长度。

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

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