將單元格存儲在範圍內，然後刪除1 go

Question

我創建了以下代碼，它旨在刪除列R中存在數據之間的空單元格，問題在於如何將空單元格存儲在範圍內，任何建議？

Sub Macro1() 

Dim lastRow_1 As Long 
Dim counter_1 As Long 
Dim rng_1 As Range, aCell As Range 

lastRow_1 = Range("R" & Rows.Count).End(xlUp).Row 

MsgBox lastRow_1 

counter_1 = 1 

For counter_1 = 1 To lastRow_1 

    If Trim(Range("R" & counter_1).Value) = "" Then 

     Set aCell = Range("R" & counter_1) 

     rng_1 = Union(rng_1, aCell) 

    End If 

Next 


    rng_1.Delete xlUp 
End Sub 

Answer 1

假設R200是該範圍內的最後一個單元格

range("R1:R200").SpecialCells(xlCellTypeBlanks).Delete