Excel VBA 代码：删除 E 列首字符并放置到 G 列

以下是您需要的 VBA 代码：

Sub DeleteFirstCharacter()
    Dim lastRow As Long '最后一行的行数
    Dim i As Long '循环计数器
    
    lastRow = ActiveSheet.Cells(Rows.Count, "E").End(xlUp).Row '获取最后一行的行数
    
    For i = 1 To lastRow '循环遍历每一行
        If Len(Range("E" & i)) > 1 Then '如果 E 列的值长度大于 1
            Range("G" & i) = Mid(Range("E" & i), 2) '将 E 列的值第一个字符删除并放在 G 列
        End If
    Next i
End Sub

使用方法：

打开您要操作的 Excel 文件，按下 Alt + F11 打开 VBA 编辑器。
在左侧的项目窗口中，双击您要操作的工作表（例如“Sheet1”）。
在右侧的代码窗口中，复制上面的代码并粘贴到其中。
按下 F5 运行代码。
完成后关闭 VBA 编辑器，返回到 Excel 文件中，您会发现 E 列的第一个字符已经被删除并放在了 G 列中。

注意：

该代码会将 E 列所有单元格的第一个字符删除，如果 E 列存在空单元格，请先确保空单元格不会被处理。
如果您需要删除其他列的首字符，只需将代码中的 "E" 和 "G" 修改为对应列的字母即可。

希望本篇文章能够帮助您轻松实现删除 Excel 列首字符的操作。