ljsq.net
当前位置:首页 >> ExCEl vBA中单元格rAngE("A" & i) = 1我想让i是几... >>

ExCEl vBA中单元格rAngE("A" & i) = 1我想让i是几...

定义一个数组,如arr用来存放(1,2,3,5,8),如 arr=array(1,2,3,5,8) range("a" & i) = 1改为: For i = 0 To 4 range("a" & arr(i))=1 Next

range的常见用法 1.表示单元格 range("A1")表示第一行第一列的单元格,实质上于cells(1,1)效果一样。两者在这种情况下是一样的,但是两者的关系可以这样理解,range对象是单元格对象的集合。range对象在表示单元格的时候不可以像cells(i,j)一...

Range("a65536").End(3) 代表从 A65536 单元格往前查找到的第一个有数据的单元格 Range("a65536").End(3).Row 表示A列单元格最下面一个有数据的单元格的行号,假定最后使用的单元格行号为20,则 "a1:a" 与后面的连起来就表示"a1:a20"这些单元格...

Sub 选取() Dim arry y = Range("a65536").End(xlUp).Row For i = 2 To y If Cells(i, "m").Value = "★" Then If IsEmpty(arry) Then Set arry = Range("a" & i) Else Set arry = Union(arry, Range("a" & i)) End If End If Next arry.Select E...

如果是遍历第一行到第i-1行,可用代码: Sub s1() Dim i&, j& i = InputBox("请输入i值:") For j = 1 To i - 1 Rows(i).Select '在这里可将select换成其它操作代码 NextEnd Sub如果是同时操作第一到第i-1行,可用代码: Sub s2() Dim i&, j& i ...

在VBA中选择单元格使用range.select Range支持不连续的多区域,表示方式为,Range(区域A1地址,区域B地址,……) 例如:A列中的A2:A3和C列中的C3:C9,是不连续的两列 那么同时选择两部分,则可以表示为Range("A2:A3,C3:C9") VBA代码中具体使用如...

Sub 选取() Dim arry y = Range("m65536").End(xlUp).Row For i = 2 To y If Cells(i, "m").Value = "★" Then If IsEmpty(arry) Then Set arry = Range("m" & i) Else Set arry = Union(arry, Range("m" & i)) End If End If Next arry.Select E...

Sub mmm() For i = 1 To 20 Sheet1.Range("a" & i & ":n" & i).MergeCells = True Next iEnd Sub

EXCEL vba 获取某列中等于固定值的连续单元格区域的写法如下 dim n&,j&,rng as range n=[a65536].end(xlup).row j=1 for i=2 to n if cells(i,1)cells(j,1) then rng=range(cells(j,1),cells(i-1,1)) '这里进行其他操作(如复制、粘贴什么的) j=...

i是一个变量(代表几行)。I+8表示I行再+8行,Clo是列。select就是选择这个单元格

网站首页 | 网站地图
All rights reserved Powered by www.ljsq.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com