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属性引用选定...
[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 单精度...
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 '在单元格上方插入一行 ...
包含此单元格的行 Cells.Interior.ColorIndex = xlColorIndexNone 所有单元格五色 Set rng = Application.Union(Target.EntireRow, Target.EntireColumn) 设置合并区域,注意Union方法是在Application下面的 Set rng = Sheet1.UsedRange.SpecialCells(xlCellTypeFormulas) 找出具有公式的单元格区域 Sheet1.Range("A:A")...
Set r1 = Worksheets("Sheet1").Range("A1") r1.Value = "Hello,VBA!" r1.Font.Size = 20 r1.Font.Color =vbRed 我们再来一行行解释这些代码。 第一行:Dim r1 按照标准流程,我们在后续的代码中需要用r1代表Worksheets("Sheet1").Range("A1"),所以在使用之前先声明一个变量r1,方便后续调用。
Range("1:4").Select ' 选择第1到4行 Range("A:C").Select ' 选择A到C列 Range("A:C").EntireColumn.Insert ' 在第1列左边插入三列空白列 使用Cells(row, column)(其中 row 是行号,column 是列标)可返回一个单元格。当工作表激活以后,使用 Cells 属性时不必明确声明工作表(它将返回活动工作表上的...
Set es = Cells.Find("*", , xlFormulas, , , xlPrevious) a = Application.CountA(Sheet2.[a:a]) If es.Row = 4 Then MsgBox "没有填写内容": End Range([a5], es).Copy Sheet2.Cells(a + 1, 1) Sheet2.Cells(a + 1, "f").Resize(es.Row - 4) = [b2] '保存入库单 Sheet2.Cell...
Set dataRange = Sheets("Sheet1").Range("A1:A10000") Set dict = CreateObject("Scripting...
Private Sub SetStyles()Dim xAddr As String xAddr = "=$B$3"Dim r As Range Set r = Selection r.FormatConditions.Delete'删除条件格式 With r.FormatConditions.Add(xlCellValue, xlEqual, xAddr)'新建条件格式 With .Font'设置条件格式字体 .Bold = True .Italic = True .ColorIndex = 3 .Underline...