Excel VBA幫助需要

Question

如何使用VBA執行此操作？ 列A具有多個帶數字值的單元格。 A列中的單元格數量是動態的。 數字值是一個16位數字。例如， 1234567891234567 我需要分割這個數值如下： 刪除前兩個數字，只保留下4位數字，並刪除所有其他數字。 預期輸出：3456 此3456 shd填充在列B中

因此，總結用戶填充列A的數值。 並運行宏。 的4位數字的數值SHD得到顯示在列B

Answer 1

這個簡單的代碼將做的工作：

Sub GetDigits() 
    Dim lastRow As Long 
    Dim i As Long 
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row 

    For i = 1 To lastRow 
     Cells(i, 2).Value = Mid(Cells(i, 1).Value, 3, 4) 
    Next i 
End Sub