需要 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