共享Excel工作簿出现1004错误：Range的Insert方法失败，求代码适配

错误原因 #

共享工作簿模式下，Excel限制了Cut、Insert这类会改变单元格结构的操作，这是触发"Insert method of range failed"错误的核心原因。此外原代码存在语法缺陷（缺失Next x语句），会导致逻辑执行异常。

修改思路 #

替换Cut/Insert操作，改用复制单元格值+清空原单元格的方式实现排序逻辑——共享工作簿允许直接修改单元格内容，不会触发结构变更限制。同时修正原代码的语法错误，确保逻辑完整。

修改后的代码 #

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
    Dim ws1 As Worksheet
    Dim x As Integer
    Dim y As Integer
    Dim score As Long
    Dim scoreRow As Long
    Dim tempCol13 As Variant ' 临时存储第13列数据
    Dim tempCol14 As Variant ' 临时存储第14列数据

    ' 仅在目标区域符合条件时执行逻辑
    If Target.Column >= 2 And Target.Column <= 10 And Target.Row >= 5 And Target.Row <= 9 Then
        Application.EnableEvents = False
        Application.ScreenUpdating = False
        
        Set ws1 = ThisWorkbook.Worksheets(1) ' 用ThisWorkbook替代ActiveWorkbook，避免激活其他工作簿出错
        
        ' 选择排序：对10-19行的第14列降序排序，同步第13列数据
        For x = 10 To 19
            score = ws1.Cells(x, 14).Value
            scoreRow = x
            
            ' 找到当前行之后的最大分数所在行
            For y = x + 1 To 19
                If ws1.Cells(y, 14).Value > score Then
                    score = ws1.Cells(y, 14).Value
                    scoreRow = y
                End If
            Next y
            
            ' 若当前行不是最大分数行，交换数据（用值复制替代Cut/Insert）
            If scoreRow <> x Then
                ' 保存目标行的临时值
                tempCol13 = ws1.Cells(scoreRow, 13).Value
                tempCol14 = ws1.Cells(scoreRow, 14).Value
                
                ' 将当前行数据移到目标行
                ws1.Cells(scoreRow, 13).Value = ws1.Cells(x, 13).Value
                ws1.Cells(scoreRow, 14).Value = ws1.Cells(x, 14).Value
                
                ' 将临时值写入当前行
                ws1.Cells(x, 13).Value = tempCol13
                ws1.Cells(x, 14).Value = tempCol14
            End If
        Next x ' 补全原代码缺失的循环结束语句
        
        ThisWorkbook.Save ' 共享模式下保存可能触发冲突，可按需添加错误捕获
        Application.ScreenUpdating = True
        Application.EnableEvents = True
    End If
End Sub

关键改动说明 #

• 移除Cut和Insert操作，用值交换实现排序，避开共享工作簿的结构操作限制。
• 补全原代码缺失的Next x语句，确保排序逻辑完整执行。
• 替换ActiveWorkbook为ThisWorkbook，避免切换工作簿时出现逻辑错误。
• 添加临时变量存储单元格值，保证数据交换的准确性。
• 优化代码缩进与注释，提升可读性。

额外注意事项 #

• 共享工作簿多用户同时编辑时，可能出现保存冲突，建议添加错误处理逻辑捕获异常。
• 若要提升排序效率，可将数据写入数组排序后再写回单元格，减少共享模式下的编辑冲突概率。

内容的提问来源于stack exchange，提问作者Mike Wild