1、定义一个Range对象。Dim rng As Range 2、引用Range对象 ，假设我们定义了一个工作表对象ws。Set rng = ws.Range("A1:B2")Set rng = ws.Range("C1")Set rng = ws.Range(ws.Cells(1, 1), ws.Cells(3, 3)).Set rng = ws.UsedRangeSet rng = ws.Range("A1").CurrentRegion 3、批注：Set r...
Dim r1 As Range, r2 As Range,myMultipleRange As Range Set r1 =Sheets("Sheet1").Range("A1:B2") Set r2 =Sheets("Sheet1").Range("C3:D4") Set myMultipleRange = Union(r1, r2) myMultipleRange.Font.Bold = True 使用Areas属性引用选定...
Sub SetNewRange() Dim rngDoc As Range Set rngDoc = ActiveDocument.Range(Start:=0, End:=10) End Sub 将属性或方法应用于 Range 对象时,可以看到已经创建了 Range 对象。下面的示例对活动文档的前 10 个字符应用加粗格式。 Sub SetBoldRange() Dim rngDoc As Range Set rngDoc = ActiveDocument.Range(...
Range("A11").Value = "=SUM(A1:A10)" '输入公式 Range("C1:C10").FormulaArray = "=A1:A10*B1:B10" '输入数组公式 四、操作单元格 插入、删除单元格 Set rng = Range("B2") rng.Insert Shift:=xlToRight '插入单元格,单元格右移 rng.EntireRow.Insert Shift:=xlShiftDown '在单元格上方插入一行 ...
[A-W a-w]a-w或A-W中的一个字符 [!0-9] 字符不是0-9之间 变量 代码语言:javascript 代码运行次数:0 运行 AI代码解释 Dim x As Integer 整数 Dim st As String 文本 Dim rg As Range 对象 Set rg = Range("A1") ·对象赋值 Dim arr(1 to 10) As Integer 数组 Long 长整数, Single 单精度...
包含此单元格的行 Cells.Interior.ColorIndex = xlColorIndexNone 所有单元格五色 Set rng = Application.Union(Target.EntireRow, Target.EntireColumn) 设置合并区域,注意Union方法是在Application下面的 Set rng = Sheet1.UsedRange.SpecialCells(xlCellTypeFormulas) 找出具有公式的单元格区域 Sheet1.Range("A:A")...
LET X=1 LET一般可以省略，上面的赋值语句可以写为：X=1 对应对象变量的赋值使用SET，例如：SET R=RANGE("A1:A2")这里的SET不可以省略，接下来R具有RANGE的方法和属性，例如：MSGBOX R.CELLS.COUNT 特别需要注意，对于RANGE对象可以用LET复制给数组，例如：LET A=RANGE("A1:A2")MSGBOX A(2,1) ...
至于你的Set例子：其他时候我用Set r = Range("A1")如果不先使用语句声明r是a Range或Variantobject ...
给对象赋值，我们用SET语句，这里给Range对象赋值，把每一个单元格赋值给arr：Set arr(i, j) = Cells(i, j)我们给单元格标色，注意，这里我们用的是数组：arr(i, j).Interior.Color = vbBlue 这种方式好像还没有什么实际应用的案例，暂时先了解一下吧。另外，昨天我们举例：Dim arr()arr = Array(Array(...
一 使用Range属性 使用Range属性时,在两个或多个引用之间加上逗号,就可以引用多重区域。下例清除选定工作表上三个单元格区域的内容,代码如下: Sub one() '定义一个对象变量rng Dim rng As Range '将活动工作表的单元格区域A1:A10,B1:B5,C1:C8赋予该变量 Set rng = Range("A1:A10,B1:B5,C1:C8") '使...