Excel 2007 VBA 代码拆分单元格

Question

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

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

我想把单元格拆分成-

单元格 A1-“市场价值”和 单元格 B1-“2009 年 6 月 16 日”

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

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

Answer 1

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

是的

例子

单元格 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