用vba写一段提取A列数据中前两个字符并写入到B列中

您好！以下是用 VBA 在 Excel 中提取 A 列数据中前两个字符并写入到 B 列中的代码：

Sub extract()
    Dim lastRow As Long
    lastRow = Range("A" & Rows.Count).End(xlUp).Row '获取 A 列最后一行行号
    
    For i = 1 To lastRow '遍历 A 列
        Range("B" & i).Value = Left(Range("A" & i).Value, 2) '将 A 列当前行前两个字符写入 B 列当前行
    Next i
End Sub

您可以将此代码复制到 Excel 的 VBA 编辑器中，然后运行它即可实现提取和写入操作。