Excel vba 选择。复制

Question

i would like to insert an if-operator, who check that the selection area is from Column A to L

This is my code: The Probleme here is that i can select one column but they had to select column A to L

Selection.Copy Destination:=Sheets("Archiv").Range("A" & Sheets("Archiv").Range("A" & Rows.Count).End(xlUp).Row).Rows.Offset(1)
 
 Selection.Delete Shift:=xlUp

Thanks

Answer 1

Like this:

Sub Tester()
    Const MSG As String = "Please select a continuous range from ColA to ColM"
    
    If TypeOf Selection Is Range Then  'make sure a range is selected...
        With Selection
            If .Areas.Count = 1 Then   'must be a single area
                If .Cells(1).Column = 1 And .Columns.Count = 12 Then 'A to M
                    'good to go...
                Else
                    MsgBox MSG
                End If
            Else
                MsgBox MSG
            End If
        End With
    End If
End Sub