2

这是我到目前为止所拥有的：

Sub Truncate()
    Application.ScreenUpdating = False

    Dim LastHeader As Long
    Dim MyCell As Range
    LastHeader = Range("IV1").End(xlToLeft).Column

    For Each MyCell In Application.Intersect(Sheet6.UsedRange, Columns("I"))
        MyCell.Value = Right(MyCell.Value, Len(MyCell.Value) - 12)
    Next MyCell

    Application.ScreenUpdating = True

End Sub

我想让这个宏删除“I”列中的前 12 个字符，而其余部分保持原样。当我不使用 (Len(MyCell.Value) - 12) 时，我让这个宏适用于其他列，而只是输入一个像 Right(MyCell.Value, 1) 这样的数字，它将第一个字母保留在右边只要。但是对于这一列，数据右侧的位数会有所不同，因此最好只删除数据左侧指定数量的字符。

哦，顺便说一句，我得到的错误是run-time error '5'

谢谢你的帮助 ：）

4

1 回答 1

1

几乎可以肯定其中一个条目包含 12 个或更少的字符，因此您最终Right使用 0 或负数作为第二个参数进行调用。

如果您想在有 12 个或更少字符的情况下将单元格留空，请尝试：

If (Len(MyCell.Value) > 12) Then
    MyCell.Value = Right(MyCell.Value, Len(MyCell.Value) - 12)
Else
    MyCell.Value = ""
End If
于 2014-08-07T22:49:45.200 回答