Excel VBA: 如何删除 E 列首字符并放入 G 列

Excel VBA: 删除 E 列首字符并放入 G 列

本教程将向您展示如何使用 Excel VBA 代码删除 E 列单元格中的第一个字符，并将剩余字符放入 G 列对应单元格中。

代码:

Sub DeleteFirstChar()
    Dim LastRow As Long
    Dim i As Long
    
    LastRow = Cells(Rows.Count, "E").End(xlUp).Row
    
    For i = 1 To LastRow
        If Len(Cells(i, "E").Value) > 0 Then
            Cells(i, "G").Value = Mid(Cells(i, "E").Value, 2)
        End If
    Next i
End Sub

使用方法:

1. 打开需要处理的 Excel 文件
2. 按下 ALT + F11 进入 VBA 编辑器
3. 在左侧的“项目资源管理器”窗口中，双击需要添加代码的工作表
4. 在窗口中复制上述代码
5. 按下 F5 运行代码
6. 完成后关闭 VBA 编辑器，查看 G 列的数据是否正确更新

代码解释:

• LastRow 变量用于获取 E 列中最后一个非空单元格的行号
• i 变量用于循环遍历 E 列中的每个单元格
• Len(Cells(i, "E").Value) > 0 检查 E 列单元格是否为空
• Mid(Cells(i, "E").Value, 2) 获取 E 列单元格中从第二个字符开始的子字符串
• 将子字符串赋值给 G 列对应单元格

通过以上步骤，您可以轻松地使用 VBA 代码删除 E 列单元格中的第一个字符，并将其放入 G 列对应单元格中。