Excel VBAヘルプが必要

Question

VBAを使用してこれを行う方法？ 列Aには数値のセルが複数あります。 列Aのセル数は動的です。 数値は16桁の数字です。 Ex。 1234567891234567 この数値を次のように分割する必要があります。 最初の2つの数字を削除し、次の4桁のみを削除し、他の数字はすべて削除します。 期待される出力：3456 この3456 shdは列Bに取り込まれます

したがって、ユーザーは列Aに数値を入力します。 マクロを実行します。 4桁の数値は、この単純なコードでは、仕事をするだろう

Answer 1

列Bに表示されますSHD：

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