Excel - VBA实例: 遍历若干cell的值
在VBA里输入代码并运行以下的例子。
设置某个单元格的值为数值或字符串:
Worksheets("Sheet1").Range("A1").Value = 3.14159
Worksheets("Sheet1").Range("A1").Value = "Hello"
当前活动的Workbook的Sheet1上的操作,遍历A1:D10的单元格,对值进行判断操作:
For Each cell in Worksheets("Sheet1").Range("A1:D10")
If cell.Value < .001 Then
cell.Value = 0
End If
Next cell
For Each cell in Worksheets("Sheet1").Range("A1:D10")
If cell.Value = "Hi" Then
cell.Value = "Hello"
End If
Next cell
下面的例子,使用Array的方法,来操作Range里的内容。Range.Value属性,可以看作一个Variant类型,种类是RangeValueDataType。它是一个2维数组。
Public Sub TruncateSmallValuesInDataArea()
Dim dataArea As Excel.Range
Set dataArea = ThisworkBook.Worksheets("Sheet1").Range("A1:CC5000")
Dim valuesArray() As Variant
valuesArray = dataArea.Value
Dim rowIndex As Long
Dim columnIndex As Long
For rowIndex = LBound(valuesArray,1) To UBound(valuesArray,1)
For columnIndex = LBound(valuesArray, 2) To UBound(valuesArray, 2)
If valuesArray(rowIndex, columnIndex) < 0.001 Then
valuesArray(rowIndex, columnIndex) = 0
End If
Next
Next
dataArea.Value = valuesArray
End Sub
参考:
Range.Value property (Excel) | Microsoft Learn
相关文章
- [PHP 开源类库]simple-Excel — 兼具优雅与性能的Excel和CSV文件读写工具
- C#.NET常见问题(FAQ)-如何使用DataGridView跟Excel数据交互
- Office WORD EXCEL批量查找和替换技巧实例
- excel表 更改后缀名 xlsx转成csv csv转换xlsx
- excel怎么制作实线虚线混排的折线图
- 这些Excel学会了,你做账的效率将大大提高
- 使用Excel绘制F分布概率密度函数图表
- 数据分析系列篇:玩转excel
- 在excel中批量插入图片
- ThinkPHP使用PHPExcel实现Excel数据导入导出完整实例
- Python导出DBF文件到Excel的方法
- fastadmin 中 Excel导入失败的原因
- python 抓取数据 存入 excel
- ThinkPHP使用PHPExcel实现Excel数据导入导出完整实例
- SAP UI5 Table 控件数据进行 Excel 导出时如何进行格式控制
- 如何在 Python 中自动化处理 Excel 表格?
- Excel 表列序号(C++)
- 〖Python自动化办公篇⑬〗- Excel 文件自动化 - 写入 excel 数据(xlsxwriter)
- GridView导出Excel的超好样例
- excel根据颜色赋值 Excel填充颜色单元格替换成数字 excel把所有红色变成1
- FastAdmin 导入 Excel 相关资料收集 (2018-08-14)
- JAVA操作Excel表格:方法二:POI的使用②:Excel实战之POI解析读取excel文件(低版本)
- JAVA操作Excel表格:方法二:POI的使用①:Excel实战之POI创建excel文件(低版本)
- JAVA操作Excel表格:方法一:jxl的使用①:Excel实战之JXL创建excel文件
- 〖Python自动化办公篇⑫〗- Excel 文件自动化 - 读取 excel 数据
- springboot使用jxls导出excel___(万能通用模板)--- SpringBoot导入、导出Excel文件___SpringBoot整合EasyExcel模板导出Excel