Question

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

细胞A1- “市场价值（6/16/09）”[或“加法（12/15/09）”等]

我想把细胞分成 -

细胞A1-“市场价值”和 Cell B1-“6/16/09”

显然，如果它需要A1数据并将其放入B1 / C1，我可能会少关心。

我已经看过其他一些拆分的VBA模块，但它们似乎并不适合我。我已经找到了使用CSV分割它的方法，但这似乎也没用。那么有没有办法使用“（”或“）”作为标记来复制“（”之前或之后的文本？

Answer 1

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

是

实施例

Cell 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

Excel 2007 VBA代码 - 拆分单元

1 个答案: