仅Excel VBA保留列的最后5个字符

Question

我正在尝试创建一个宏，该宏仅保留从第2行开始的B列中每个单元格的最后5个字符。因此，如果一个单元格包含：02554531543。该宏将删除除31543以外的所有内容。

感谢您的帮助！

Answer 1

使用TextToColumns快速从11个字符值中去除尾随的5个字符。

Option Explicit

Sub Macro1()
    With Worksheets("sheet4")
        .Columns("A:A").TextToColumns Destination:=.Range("A1"), DataType:=xlFixedWidth, _
                                      FieldInfo:=Array(Array(0, 9), Array(6, 2))
    End With
End Sub