TOP

VBA-第 4 课。使用单元格 (Range)

YouLibreCalc for Excel logo

让我们考虑一下如何使用该范围。为此,Excel 中有一个 Range 对象,其中包括单元格区域和单个单元格。让我们看看我们可以用这个范围做什么。


选择范围并定义其参数

首先,让我们尝试选择一个范围并定义其参数:

Sub Test2() 'moonexcel.com.ua
    Dim cur_range As Range '声明一个 Range 类型的变量
    
    Set cur_range = Selection '我们将选定的范围分配给 Range 对象
    
    '让我们在Immediate窗口中显示范围的地址、列数和行数
    Debug.Print cur_range.Address
    Debug.Print cur_range.Columns.Count
    Debug.Print cur_range.Rows.Count
End Sub

使用此代码,我们将选定的单元格分配给 cur_range 范围。接下来,借助Debug.Print函数,范围参数显示在Immediate值的预览窗口中。


我们看到地址范围是$C$1:$E$5,列数是3,行数是5。

使用 UsedRange 突出显示范围

让我们考虑如何以另一种方式突出我们的产品范围。为此,我们将使用 UsedRange

Sub Test() 'moonexcel.com.ua
    Dim cur_range As Range
    
	Set cur_range = ActiveSheet.UsedRange
	
	Debug.Print cur_range.Address
End Sub

这种方法的优点是您不需要手动选择范围,Excel 会为您做这件事,它将分析工作表中填充了哪些单元格并仅选择它们。