0

Excel 2007 - 我有无数旧的 Word 表格，我想将它们放入 Excel。我想将单元格的内容分成两个单元格。大多数单元格具有非常相似的格式（我不需要拆分没有这种格式的单元格） - 文本（日期）。我尝试过使用“LEFT”或“RIGHT”，但由于文本字符串和日期字符串是可变长度的，因此没有好的直接方法。例如-

单元格 A1-“市场价值 (6/16/09)”[或“添加 (12/15/09)”等]

我想把细胞分成-

单元格 A1-“市场价值”和单元格 B1-“6/16/09”

显然，如果它获取 A1 数据并将其放入 B1/C1 中，我就不在乎了。

我见过其他一些拆分 VBA 模块，但它们似乎并没有为我做这个伎俩。我一直在寻找使用 CSV 拆分它的方法，但这似乎也没有用。那么有没有办法使用“（”或“）”作为标记来复制“（”之前或之后的文本？

4

1 回答 1

0

那么有没有办法使用“（”或“）”作为标记来复制“（”之前或之后的文本？

是的

例子

单元格 A1-“市场价值 (6/16/09)”

Sub Sample()
    Dim Ar() As String

    Ar = Split(Range("A1").Value, "(")

    Debug.Print Ar(0) '<~~ This will give      Market Value
    Debug.Print Ar(1) '<~~ This will give      6/16/09)

    '<~~ And the below will give you           6/16/09
    Debug.Print Replace(Ar(1), ")", "")
End Sub
于 2012-05-21T20:33:58.540 回答