Excel 请协助编写宏以清理数据条目

快速的问题对你们很多人来说应该足够简单，但我对VBA或一般的代码不太精通，但我有一个问题，只有宏或VBA代码可以帮我解决。我必须逐个单元格编辑电子表格中的大量数据条目

接下来是这个问题。你能给我举个例子或者提供一个完整的宏给我用来编辑这些单元格吗

我需要的编辑如下：

我需要读取以下范围内的每个单元格：B2到Q383。需要检查和编辑的典型条目如下所示：629.64\3.00\01:30

现在需要做的是从每个单元格中删除第一个“\”左边的所有内容，以及第二个“\”右边的所有内容，包括“\”

我尝试过摆弄左右命令，我可以用这样的东西输出需要从单元格中删除的数据

=左（B11，Find（“\”，B11）-1）

那么，宏中的delete命令是什么，以该单元格中的数据选择为目标？或者如何对这些参数使用delete命令

---

提前感谢您的建议或回答

不是100%确定你要找的是什么-你说你想从左边和右边删除位，但公式返回左边的位

不管怎样，这里有三个公式：
左：=TRIM（左（B11，FIND（“\”，B11）-1））
中间：=左（中间（B11，FIND（“\”，B11）+1，LEN（B11）），找到（“\”，中间（B11，FIND（“\”，B11）+1，LEN（B11））-1）
右：=MID（B11，FIND（“\”，SUBSTITUTE（B11，“\”，“~”，1））+1，LEN（B11））

和三个VBA函数来执行此操作
（使用这些公式-=leftbit（B11），或者如果要查找反斜杠以外的内容-=leftbit（B11，“|”）将找到作为分隔符的I形条。）

---

谢谢明天早上我会给这些做个测试，然后再给你回复。我发布的公式示例只是我正在寻找的部分示例，但我相信我可以将您在这里发布的内容与我正在寻找的内容结合起来。如果它还没有达到我想要的效果！再次感谢。我会使用第二张纸上的公式从原始数据中提取所有内容-如果您想覆盖原始数据，您可以复制/粘贴特殊值。谢谢Darren。最后使用中间函数将我想要的数据移动到另一个工作表中，然后将数据复制回主工作表中。工作得很有魅力。

Public Function LeftBit(target As Range, Optional Divider As String = "\") As String

    LeftBit = Trim(Left(target, InStr(target, Divider) - 1))

End Function

Public Function MiddleBit(target As Range, Optional Divider As String = "\") As String

    Dim First As Long, Second As Long

    First = InStr(target, Divider)
    Second = InStr(First + 1, target, Divider)

    MiddleBit = Mid(target, First + 1, Second - First - 1)

End Function

Public Function RightBit(target As Range, Optional Divider As String = "\") As String

    RightBit = Right(target, Len(target) - InStrRev(target, Divider))

End Function