excel - VBA选择范围然后调整范围大小

Question

我需要选择给定范围内的所有值，然后添加 3 行。

这是我的代码，但我似乎不知道如何让 resize 工作。我收到运行时错误 1004。

本质上，我需要选择从 C4 开始的所有值，然后向该范围添加 3 个附加行。有两个空白单元格，然后是一个总单元格(请参阅下面的示例数据)。

Sub Resize_Range()

Range(Range("C4"), Range("C4").End(xlDown)).Resize(3, 0).Select

End Sub



Cell    Value
C4      Animal
C5      Dog
C6      Cat
C7      Panda
C8      Horse
C9  
C10 
C11     Total

Answer 1

请勿使用 Resaize，因为这会将范围调整为该大小而不添加行。

只需将 3 添加到使用偏移量找到的最后一行:

Range(Range("C4"), Range("C4").End(xlDown).Offset(3,0)).Select

我认为这只是为了将来使用，但请记住使用 .Select 会减慢代码速度，并且 99% 的时间都可以跳过。

还请记住，为所有范围对象分配父子关系很重要，因此 VBA 不会默认为事件表。

With Worksheets("Sheet1")
     .Range(.Range("C4"), .Range("C4").End(xlDown).Offset(3,0)).Value = "Test"
End With