使用数字增量（CTRL拖动）时，Excel VBA代码错误

2

990112

Private Sub Worksheet_Change(ByVal Target As Range)
Dim oldText  As String, aboveText As String, newText As String
    If Target.Column = 3 Then
        oldText = Target.Text
        aboveText = Target.Cells(0, 1).Text

        If aboveText <> \"DESIGN\" Or Target.Text <> \"\" Then

            If Len(aboveText) = 6 And Len(oldText) < 6 And Len(oldText) >= 1 Then
                Application.EnableEvents = False
                newText = Left(aboveText, 6 - Len(oldText)) + oldText
                Target.Value = newText
                Application.EnableEvents = True
            End If

        End If

    End If

End Sub