clwn.net
当前位置:首页 >> CElls语句 >>

CElls语句

Cells(2, 1)

整个区间是什么概念? 你想自己设定c1的数值?

Sub 重复次数1() Dim arr, k%, i%, n% '定义变量 Set arr = Range("a1").CurrentRegion '把指定区域赋值给变量arr (这句没用可以删除) For k = 6 To Cells(Rows.Count, 1).End(3).Row '设定循环范围为6 到第一列中有数据的最大行号 For i = 6 To...

Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long Dim Num As Long Dim BOX As String Application.ScreenUpdating = False MyPath = ActiveWorkbook.Path MyName = D...

上面的代码说明如下: 获取当前激活表已使用区域的最大行号b = ActiveSheet.UsedRange.Rows.Count获取当前激活表已使用区域的最大列号c = ActiveSheet.UsedRange.Columns.Count 以下代码,从14行第1列开始,到最大行最大列结束 For i = 14 To b ...

If Cells(i, 2) = "汽车" Then Cells(i, 22).Value = Cells(i, 22) - 10000 去掉引号

删除行的操作,我讲过很多次了,得倒循环来处理,否则会有很多行被忽略了(因为没有循环到),你修改成如下代码即可(仅以判断A列是否为空,不为空时删除该行) Sub delet() Dim x As Integer For x = 3000 to 4 step -1'这样倒循环 If Cells(x,...

这程序是将表1的内容逐行复制到表2 对应的单元格中,并独立打印出来。 Sub xx() Dim lastrow As Long ‘定义变类型 lastrow = Range("B65536").End(xlUp).Row() '读Sheet1有内容最后的行号 Sheets("Sheet2").Select ‘选择Sheet2 For i = 2 To las...

VBA判断语句 1)If„Then„Else语句 IfconditionThen[statements][Elseelsestatements] 如1:IfA>B And C250Thenx=x-100 或者,可以使用块形式的语法: If condition Then [statements] [ElseIf condition-n Then [elseifstatements] ...

你这个是之前的那个问题?还是新问题,错误的是哪个for循环啊,粗略一看你这个for都没什么问题啊?你可不可以 把资料打包发给我,或者上传附件,

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