Question

如何使用VBA执行此操作？列A具有多个具有数值的单元格。 A列中的单元格数是动态的。数值是16位数字。防爆。 1234567891234567 我需要拆分这个数值，如下所示：删除前两个数字，只保留下4个数字并删除所有其他数字。预期产量：3456 这个3456 shd填充在B列

因此，总结一下，用户用数值填充A列。并运行宏。在B列中显示4位数字值shd。

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

需要Excel VBA帮助

1 个答案: