[已解决]这个Resize是什么意思？

hahada

Sub 删除()
        Dim i&,arr
         arr = Range(Range("k4"), Cells(Rows.Count, "k").End(xlUp))
        For i = LBound(arr) To UBound(arr)
         If arr(i, 1) Like "[12]" Then
        arr(i, 1) = ""
        End If
        Next
        Range("k4").Resize(UBound(arr)) = arr
End Sub
数组经常用到Resize，到底是什么意思？

最佳答案

月排行榜 / 总排行榜

1032446692

2013-5-24 21:37

调整指定区域的大小。返回 Range 对象，该对象代表调整后的区域。

expression.Resize(RowSize, ColumnSize)
expression      必需。该表达式返回要调整大小的 Range 对象。

RowSize      Variant 类型，可选。新区域中的行数。如果省略该参数，则该区域中的行数保持不变。

ColumnSize      Variant类型，可选。新区域中的列数。如果省略该参数。则该区域中的列数保持不变。

跳转到最佳答案楼层

1032446692

调整指定区域的大小。返回 Range 对象，该对象代表调整后的区域。

expression.Resize(RowSize, ColumnSize)
expression      必需。该表达式返回要调整大小的 Range 对象。

RowSize      Variant 类型，可选。新区域中的行数。如果省略该参数，则该区域中的行数保持不变。

ColumnSize      Variant类型，可选。新区域中的列数。如果省略该参数。则该区域中的列数保持不变。

1032446692

Range("k4").Resize(UBound(arr))
在这里  就是把指定区域Range("k4")调整为Range("k4")向下UBound(arr)个单元格的区域


这样的东西  自己在VBE（VBA编辑窗口），多按按F1就知道了

ligh1298

1032446692 发表于 2013-5-24 21:40
Range("k4").Resize(UBound(arr))
在这里  就是把指定区域Range("k4")调整为Range("k4")向下UBound(arr)个 ...

班长：如果大家写VBA代码时，不懂的都按F1了，你的电脑就要ATL+F4了！