VBA如何避免在插入新列时覆盖已有数据？

在VBA中，如果你想要在某列后面插入新列而不覆盖现有数据，可以使用 `Insert Shift:=xlToRight` 参数。这个选项会将新的列插入到现有列的右侧，而不会改变现有列的位置。以下是修改后的代码片段：

Sub AddNewColumnWithoutOverwritingData()
    Dim ws As Worksheet ' 假设你要操作的是当前活动的工作表
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 替换为你想要操作的工作表名

    ' 确定要在哪一列之后插入新列，假设是要在第3列（索引从1开始）
    Dim columnToFollow As Integer
    columnToFollow = 3
    
    ' 新增一列，保留现有数据
    ws.Columns(columnToFollow).End(xlToLeft).Offset(0, 1).Insert Shift:=xlToRight

    ' 提示新列已插入
    MsgBox "新列已成功插入到第" & columnToFollow & "列之后，未覆盖任何数据！"
End Sub

现在，新列会插入到原列的右边，所有现有的数据都会保持不变。