在 VBA 中使用循环删除范围并在每次迭代时更改范围

Question

我想在 Excel (A50:B80) 中选择一个范围并删除其所有内容。我将保留两行，然后我希望下一个循环迭代从 (A52:B82) 开始，依此类推。这是我目前所拥有的：

Sub Macro2() 
 Dim i As Integer
 Dim num As Integer
 num = 50
    
 Dim num_2 As Integer
 num_2 = 80
    
 For i = 1 To 2:
     Set Range1 = Range("A" & num)
     Set Range2 = Range("B" & num_2)
     Range(Range1, Range2).Select
     Selection.delete Shift:=x1Up
     num = num + 2
     num_2 = num + 2
 Next i
End Sub

但我不断收到“运行时错误 '1004：Range 类的删除方法失败。

任何帮助将不胜感激！

Answer 1

这写错了：

Selection.delete Shift:=x1Up

尝试将其替换为：

Selection.Delete Shift:=xlUp

Answer 2

删除一系列范围

• How to Avoid Select

• 在不确定要删除的内容之前，您不想删除任何内容。因此，在测试代码时始终使用Select。

守则

Option Explicit

Sub QuickFix()
    
    Dim First As Long
    First = 50
    Dim Last As Long
    Last = 80
    Dim i As Long
    
    Dim Range1 As Range
    Dim Range2 As Range
    Dim rng As Range
    Dim dRng As Range
    
    For i = 1 To 2
        Set Range1 = Range("A" & First)
        Set Range2 = Range("B" & Last)
        Set rng = Range(Range1, Range2)
        If Not dRng Is Nothing Then
            Set dRng = Union(dRng, rng)
        Else
            Set dRng = rng
        End If
        First = First + rng.Rows.Count + 2
        Last = Last + rng.Rows.Count + 2
    Next i
    
    If Not dRng Is Nothing Then
        dRng.Select
        Debug.Print dRng.Address
    End If

End Sub

Sub deleteRangesWithOffset()
    
    ' Define constants. All these you can change and see the differences.
    Const FirstRow As Long = 50
    Const LastRow As Long = 80
    Const FirstCol As String = "A"
    Const LastCol As String = "B"
    Const NumOfEmptyRows As Long = 2
    Const NumOfRanges As Long = 2
       
    ' Define Initial Range ('rng').
    Dim rng As Range
    Set rng = Range(FirstCol & FirstRow & ":" & LastCol & LastRow)
    ' or e.g.
    'Set rng = Range(Cells(FirstRow, FirstCol), Cells(LastRow, LastCol))
    ' or just...
    'Set rng = Range("A50:B80")
    
    Dim cRng As Range ' Current Range
    Dim dRng As Range ' Delete Range
    Dim i As Long     ' Current Ranges Counter
    
    For i = 1 To NumOfRanges
        ' Define Current Range.
        Set cRng = rng.Offset((i - 1) * (rng.Rows.Count + NumOfEmptyRows))
        ' This is how you combine (collect) the ranges into 'dRng'.
        If Not dRng Is Nothing Then
            Set dRng = Union(dRng, cRng)
        Else
            Set dRng = cRng
        End If
    Next i
    
    ' Check if there was any range 'collected' (Here it is not necessary).
    If Not dRng Is Nothing Then
        ' Test with select to see what is happening.
        ' Now maybe increase NumOfRanges to 4 and/or NumOfRanges and see
        ' what is selected... etc.
        ' Only later use 'Delete'.
        dRng.Select
        Debug.Print rng.Address ' See the range address in the Immediate window.
    End If
    
End Sub