删除 Excel 工作表中多余的斜线？

Question

我有一个很长的电子表格，其中包含数千行，如下所示：

新部门/税务/附属机构/日志/最终//////

由于一些文本到列，我最终在每一行的末尾都有多个斜线，有些只有 3 个，有些多达 7 个。

我无法对“/////”进行查找和替换，因为它没有返回任何内容。关于如何删除每行末尾的所有斜线，您有什么想法吗？

Answer 1

不清楚您是否同意在结尾处使用单个 /。

我将假设它没问题。

这是一个快速回答问题的技巧，只需多次查找和替换即可

因此，找到 ///////（7 个斜线）并将其替换为空。对整个文档进行

然后，找到 //////（6 个斜线）并用任何内容替换整个文档。

继续，直到结束new-dept/Tax/Affiliate/logs/Final/

---

我不知道为什么你的 Excel 无法搜索/，所以我编写了一个宏（更多的是测试一下看看它是否有效）。

请使用此宏。在功能区内，在开发者栏中，单击 Visual Basic，然后双击 ThisWorkbook 并粘贴以下内容

Sub RemoveTrailingSlahes()

For Each cell In ActiveSheet.UsedRange.Cells

      If (cell.Value <> "") Then
      Dim content As String
      content = cell.Value

      Dim cellContentSplit() As String

      'split the string
      cellContentSplit = Split(content, "/")

      Dim result As String
      result = ""

      'now rebuild it
      For i = 0 To UBound(cellContentSplit)

      If cellContentSplit(i) <> "" Then

        If (result <> "") Then
        result = result & "/"
        End If

        result = result & cellContentSplit(i)

      End If

      Next i

      cell.Value = result

      End If

Next

End Sub

它将读取正在使用的每个单元格，并从每个单元格末尾删除 /。

在运行宏之前，请先备份该工作，以防它没有达到您所期望的效果。

要运行宏，请单击绿色播放按钮。

前

后