乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > 怎么提取excel单元格的数值并使其在vba参与循环

怎么提取excel单元格的数值并使其在vba参与循环

作者:乔山办公网日期:

返回目录:excel表格制作


举个例子,比如对第一列中 a1:a10单元格进行循环判断,可以这么书写
for i=1 to 10
if cells(i,1)>10 then
.....
end if
next

范例1 单元格的引用方法1-1
使用Range属性引用单元格区636f7079e799bee5baa6364
Sub MyRng()
Range("A1:B4, D5:E8").Select
Range("A1").Formula = "=Rand()" ‘单元格中输入“=Rand()”
Range("A1:B4 B2:C6").Value = 10
Range("A1",
"B4").Font.Italic = True
End Sub
1-2

使用Cells属性引用单元格区域
Sub MyCell()
Dim i As Byte
For i = 1 To 10
Sheets("Sheet1").Cells(i,
1).Value = I’单元格中输入“i”
Next
End Sub
1-3

使用快捷记号实现快速输入
Sub FastMark()
[A1] = "Excel 2007" ’A1为特定单元格
End Sub
1-4

使用Offset属性返回单元格区域,
Sub RngOffset()
Sheets("Sheet1").Range("A1:B2").Offset(2,
2).Select ’用offste相对位置来确定单元格
End Sub

1-5 使用Resize属性返回调整后的单元格区域
Sub RngResize()

Sheets("Sheet1").Range("A1"). ’用offste相对位置来确定单元格).Select ’用range 来确定左上角为起始位置,’用resize相来确定单元格大小
End Sub

范例2 选定单元格区域的方法2-1
使用Select方法
Sub RngSelect()
Sheets("Sheet2").Activate ‘ 激活工作表

Sheets("Sheet2").Range("A1:B10").Select ’选择单元格
End Sub
2-2

使用Activate方法
Sub RngActivate()
Sheets("Sheet2").Activate

Sheets("Sheet2").Range("A1:B10").Activate
End Sub
2-3

使用Goto方法
Sub RngGoto()
Application.Goto
Reference:=Sheets("Sheet2").Range("A1:B10"), Scroll:=True
End Sub

我运行到11518行都没有问题呀,但最好加一句

Application.ScreenUpdating = True



Sub kb()
Dim i As Integer
Dim ss As String

For i = 1 To 5
If Range("c" & i) <> "" Then
ss = Range("c" & i).Text
MsgBox ss
End If
Next

End Sub
编辑zd的时候有缩进。不懂为嘛打出来没缩进了。。

相关阅读

关键词不能为空
极力推荐
  • excel2007怎么数据分析工具不见了

  • 方法/步骤打开一个EXCEL工作簿,单击“文件”按钮在左侧单击“选项”命令弹出“EXCEL选项”对话框,切换到“加载项”选项卡,在“管zhidao理”下拉列表中选择“EXCEL加载项”选项。选

ppt怎么做_excel表格制作_office365_word文档_365办公网