excel - Excel 列值之间有大空格

Question

在 excel 中，我的内容与下面的内容完全相同。我需要使用 excel 公式删除所有不必要的信息。只保留 -.pdf。

1-Abc.pdf 是包含重要内容的pdf

2-Def.pdf 是一个包含重要内容的 pdf

3-Ghi.pdf 是包含重要内容的 pdf

4-Jkl.pdf 是包含重要内容的pdf

我的最终结果如下所示。

1-Abc.pdf
2-Def.pdf
3-Ghi.pdf
4-Jkl.pdf

请帮忙。我在下面上传了一个示例。 http://www.4shared.com/file/w_BSr62W/Sample.html？

Answer 1

基本思路如下：

Sub TrimToFirstSpace()
    Dim strHolder As String
    Dim intSlicer As Integer

    strHolder = ActiveCell.Value
    intSlicer = InStr(1, strHolder, " ")

    strHolder = Left(strHolder, intSlicer - 1)
End Sub

如果您愿意，可以将 strHolder 放入Activecell.Value或 其他地方。