vba - 使用 VBA 解决问题

Question

因此，下面的代码有时会起作用，有时它会添加＆符号(到复制缓冲区)，我试图从文本字符串中删除它。

代码的要点是将字符串从正确位置复制到与号之前。但是，在随机情况下，它仍然会添加 & 符号。

Private Sub Block1_Enter()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Dim MyData As New DataObject
    Dim this As String
    Dim oldxt As String
    oldtxt = Block1.Text
    If InStr(Block1.Text, "&") > 0 Then
        this = Trim(Right(Block1.Text, InStr(Block1.Text, "&") - 1))
        Block1.Text = "End Date Copied" & this
        MyData.SetText this
        MyData.PutInClipboard
        Application.Wait (Now + #12:00:02 AM#)
        Block1.Text = oldtxt
    End If
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

有人可以尝试解释为什么它有时有效有时无效吗？下面是一张图片，其中包含两个无法正常工作的示例

(澄清注意:下面显示的文本框值是源值，而不是结果)

Answer 1

使用 Mid$() 代替:

this = Trim$(Mid$(Block1.Text, InStr(Block1.Text, "&") +  1))