Range("1:3,5:8").Select '下面代码代表选择A2到D5单元格所在的行 Range("A2:D5").EntireRow.Select End Sub Sub 选择列区域()'下面代码表示选择第一列 Columns(1).Select '下面代码代表选择第1到2列 Columns("A:B").Select '下面代码选择A到B,D到E列区域,逗号代码不相邻的,冒号代表相邻的 Range(...
Range(“A3:D6”).Select‘选中A3:D6单元格Range(Cells(3,1),Cells(6,4)).Select‘选中A3:D6单元格 行和列的表示 行的英语是Row,列的英语是Column，行列的表示基于这两个单词。表示行的方法：Rows(3).Select‘选中第3行Rows(“6:8”).Select‘选中6至8行 表示列的方法：Columns(5).Select...
Sheets("68").Select '创建三个字典 Set myadic = CreateObject("scripting.dictionary")Set mybdic = CreateObject("scripting.dictionary")Set mycdic = CreateObject("scripting.dictionary")'将源数据装入字典 myarr = Range("a2:c" & Range("a2").End(xlDown).Row)'第一次计算A列数据装入字典 For x ...
9 SetFJX =Sheets("A").Range("A1:A"&Sheets("A").Range("A1").End(xlDown).Row).Find(TT,AFTER:=[A1],LOOKAT:=xlWhole)10 If NotFJXIs Nothing Then Cells(I, 2) = Sheets("A").Cells(FJX.Row, 2)11 12 SetFJX =Sheets("B").Range("A1:A" &Sheets("B").Range("A1").En...
ActiveCell.EntireRow.Select ActiveCell.EntireColumn.Select 语句说明:执行上述代码后,选择行或列: 7) Columns("A:C").Select Rows("1:5").Select 语句说明:执行上述代码后,选择选择相邻的多行/多列: 备注:使用"Columns/Rows":要注意和下面第八点的区别。
Range("a1").Select'单元格 Range("a:a").Select'列 Range("1:3").Select'行 Range("a1:b10").Select'相邻区域 Range("a1:d7,c4:e8").Select'不相个邻区域 EndSub 3-2.Range引用基础2 写法:Range ("文本型装单元格地址1","文本型装单元格地址2") ...
Range("A1").Select 选择A1单元格 Range("A1:F10").Select选择A1到F10区域 Range(Cells(1, 1), Cells(3, 3)).select 选择A1:C3区域 Range("A:A").Select选择A列 Range("A:F").Select选择A-F列 RANGE("A1:D5,F2:G2,H:H").Select同时选择A1:D5,F2:G2,H列三个指定区域 Range("1:1")...
3 a = Range("B65536").End(3).Rowa不为空的单元格数B65536为B列的单元格总数就是从B65536往B1查找不为空的单元格，并记录数据为a 4 实例：Sub aaa() Dim aa = Range("B65536").End(3).RowRange("C1:C" & a).SelectEnd Sub 5 其中a = Range("B65536").End(3).Row算出B列单元格数...
VBA过程代码272：利用字典，进行单条件匹配查询 Sub MyNZ ()Dim mydic, myarr Sheets("42").Select Set mydic = CreateObject("scripting.dictionary")'将数据放入数组 myarr = Sheets("42").[a1].CurrentRegion For i = 2 To UBound(myarr)'这里字典的值，用的是array数组，方便我们匹配多个数据 mydic(...
5 隔行插入代码四：Sub 隔行插入方法4()For i = 1 To 9Cells(2 * i, 1).SelectSelection.EntireRow.InsertNext iEnd Sub将上述代码复制或者填写到代码区域，点击代码运行按钮即可。6 隔行插入代码五：Sub 隔行插入方法5()m = [a65536].End(xlUp).RowFor i = 2 To m * 2 Step 2Rows(i & ":"...