【VB6|第20期】遍历Excel单元格的四种方法

已于 2023-07-20 13:35:36 修改
阅读量4.3k 收藏 18
点赞数
分类专栏： VB6 Excel 文章标签： excel 遍历单元格 range vb6 vba
于 2023-07-20 12:58:35 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qq_35844043/article/details/131827870
版权
VB6 同时被 2 个专栏收录
23 篇文章 10 订阅
订阅专栏
Excel
3 篇文章 1 订阅
订阅专栏

日期：2023年7月19日
作者：Commas
签名：(ง •_•)ง 积跬步以致千里,积小流以成江海……
注释：如果您觉得有所帮助，帮忙点个赞，也可以关注我，我们一起成长；如果有不对的地方，还望各位大佬不吝赐教，谢谢^ - ^
1.01365 = 37.7834；0.99365 = 0.0255
1.02365 = 1377.4083；0.98365 = 0.0006

在这里插入图片描述

文章目录

一、前言

最近有用到 VB6,VBA 操作 Excel，常用的方法就是遍历单元格，接着就是进行各种操作。这里总结了四种遍历单元格的方法，选择合适的拿去使用，效率会更高些哦 ^ - ^

在这里插入图片描述

二、按单元格坐标遍历单元格

按单元格索引遍历单元格是指通过指定行号和列号来访问 Excel 中的特定单元格。在电子表格中，每个单元格都有唯一的行号和列号，通过这些索引可以精确定位并获取该单元格中的数据。

  • 单元格坐标表示法：“第2行第1列” 是一种坐标表示法，在编程中较为常见。
  • 单元格地址表示法：“A2” 是一种电子表格软件中的单元格地址表示法，用于标识特定单元格的位置

在这里插入图片描述

封装代码：

Private Sub xlTrvseByCellIdx()
On Error Resume Next
'函数说明：按单元格坐标遍历单元格
'创建作者：Commas
'创建时间：2023-07-19
'修改时间：
'------传参说明------
'------传参说明------

    '（1）创建
    Dim xlApp As Excel.Application      'Excel COM 组件,Excel 应用程序的实例
    Dim xlBook As Excel.Workbook        'Excel COM 组件,Excel 应用程序中的一个工作簿（Workbook）
    Dim xlSheets As Excel.Sheets        'Excel COM 组件,Excel 工作簿中所有的工作表（Worksheet）
    Dim xlSheet As Excel.Worksheet      'Excel COM 组件,Excel 工作簿（Workbook）中的一个工作表
    'Set xlApp = New Excel.Application              'NO1：实例化对象
    Set xlApp = CreateObject("Excel.Application")   'NO2：实例化对象
    Set xlBook = xlApp.Workbooks.Open(App.Path & "\example.xlsx")
    Set xlSheets = xlBook.Worksheets

    '（2）操作
    xlApp.Visible = False         'Excel 应用程序窗口的可见性控制
    '当 ScreenUpdating = True 时 ，Excel 将显示对工作表的更改；
    '当 ScreenUpdating = False 时，Excel 将在后台执行操作，不显示对工作表的更改，从而提高执行速度。
    xlApp.ScreenUpdating = False  'Excel 应用程序的屏幕更新控制
    
    
    ' 遍历Sheet1中每个单元格
    Dim i As Long, j As Long
    Set xlSheet = xlSheets(1) ' xlSheets("Sheet1")
    For i = 1 To xlSheet.UsedRange.Rows.Count
        For j = 1 To xlSheet.UsedRange.Columns.Count
            Debug.Print i, j, xlSheet.Cells(i, j).Value
        Next j
    Next i

    
    xlApp.ScreenUpdating = True

    '（3）销毁
    ' 保存并关闭工作簿
    xlBook.Save     ' 保存Excel文件
    xlBook.Close    ' 关闭Excel文件
    xlApp.Quit      ' 关闭Excel Application对象
    
    ' 释放资源
    Set xlSheet = Nothing
    Set xlSheets = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
End Sub

调用代码：

call xlTrvseByCellIdx

输出结果：

 1             1            姓名
 1             2            部门
 1             3            年龄
 2             1            张三
 2             2            技术部
 2             3             18 
 3             1            李小龙
 3             2            技术部
 3             3             19 
 4             1            王五
 4             2            市场部
 4             3             20 
 5             1            赵六
 5             2            销售部
 5             3             21 
 6             1            钱七
 6             2            销售部
 6             3             22

三、按矩形区域遍历单元格

矩形区域：通过指定起始单元格和结束单元格的地址来遍历一个矩形区域，例如从 A1 到 C6 这个矩形区域内的所有单元格。在这里插入图片描述

封装代码：

Private Sub xlTrvseByUsedRange()
On Error Resume Next
'函数说明：按使矩形区域单元格
'创建作者：Commas
'创建时间：2023-07-19
'修改时间：
'------传参说明------
'------传参说明------

    '（1）创建
    Dim xlApp As Excel.Application      'Excel COM 组件,Excel 应用程序的实例
    Dim xlBook As Excel.Workbook        'Excel COM 组件,Excel 应用程序中的一个工作簿（Workbook）
    Dim xlSheets As Excel.Sheets        'Excel COM 组件,Excel 工作簿中所有的工作表（Worksheet）
    Dim xlSheet As Excel.Worksheet      'Excel COM 组件,Excel 工作簿（Workbook）中的一个工作表
    'Set xlApp = New Excel.Application              'NO1：实例化对象
    Set xlApp = CreateObject("Excel.Application")   'NO2：实例化对象
    Set xlBook = xlApp.Workbooks.Open(App.Path & "\example.xlsx")
    Set xlSheets = xlBook.Worksheets

    '（2）操作
    xlApp.Visible = False         'Excel 应用程序窗口的可见性控制
    '当 ScreenUpdating = True 时 ，Excel 将显示对工作表的更改；
    '当 ScreenUpdating = False 时，Excel 将在后台执行操作，不显示对工作表的更改，从而提高执行速度。
    xlApp.ScreenUpdating = False  'Excel 应用程序的屏幕更新控制
    
    
    ' 遍历Sheet1中每个单元格
    Set xlSheet = xlSheets(1) ' xlSheets("Sheet1")
    Dim cell As Excel.Range
    
    'NO1;工作表中实际包含数据的范围 xlSheet.UsedRange
    Debug.Print "NO1;工作表中实际包含数据的范围 xlSheet.UsedRange"
    For Each cell In xlSheet.UsedRange.Cells
    'For Each cell In xlSheet.UsedRange '缩写，省略掉了.Cells，也是可以的
        ' 在这里进行单元格操作
        Debug.Print cell.Row, cell.Column, cell.Value
    Next cell
    
    'NO2;显式指定范围来引用工作表中的特定区域 xlSheet.Range
    Debug.Print ""
    Debug.Print "NO2;显式指定范围来引用工作表中的特定区域 xlSheet.Range"
    For Each cell In xlSheet.Range("A1:C6").Cells
    'For Each cell In xlSheet.UsedRange '缩写，省略掉了.Cells，也是可以的
        ' 在这里进行单元格操作
        Debug.Print cell.Row, cell.Column, cell.Value
    Next cell
    
    
    xlApp.ScreenUpdating = True

    '（3）销毁
    ' 保存并关闭工作簿
    xlBook.Save     ' 保存Excel文件
    xlBook.Close    ' 关闭Excel文件
    xlApp.Quit      ' 关闭Excel Application对象
    
    ' 释放资源
    Set xlSheet = Nothing
    Set xlSheets = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
End Sub

调用代码：

call xlTrvseByUsedRange

输出结果：

NO1;工作表中实际包含数据的范围 xlSheet.UsedRange
 1             1            姓名
 1             2            部门
 1             3            年龄
 2             1            张三
 2             2            技术部
 2             3             18 
 3             1            李小龙
 3             2            技术部
 3             3             19 
 4             1            王五
 4             2            市场部
 4             3             20 
 5             1            赵六
 5             2            销售部
 5             3             21 
 6             1            钱七
 6             2            销售部
 6             3             22 

NO2;显式指定范围来引用工作表中的特定区域 xlSheet.Range
 1             1            姓名
 1             2            部门
 1             3            年龄
 2             1            张三
 2             2            技术部
 2             3             18 
 3             1            李小龙
 3             2            技术部
 3             3             19 
 4             1            王五
 4             2            市场部
 4             3             20 
 5             1            赵六
 5             2            销售部
 5             3             21 
 6             1            钱七
 6             2            销售部
 6             3             22

四、按行范围遍历单元格

行范围：可以通过指定起始行和结束行来遍历特定的行，例如从第2行到第2行。
在这里插入图片描述
封装代码：

Private Sub xlTrvseByRangeRow(ByVal lngRowIdx As Long)
On Error Resume Next
'函数说明：指定行范围遍历单元格
'创建作者：Commas
'创建时间：2023-07-19
'修改时间：
'------传参说明------
'lngRowIdx：需要指定的行号
'------传参说明------

    If lngRowIdx < 1 Then Exit Sub

    '（1）创建
    Dim xlApp As Excel.Application      'Excel COM 组件,Excel 应用程序的实例
    Dim xlBook As Excel.Workbook        'Excel COM 组件,Excel 应用程序中的一个工作簿（Workbook）
    Dim xlSheets As Excel.Sheets        'Excel COM 组件,Excel 工作簿中所有的工作表（Worksheet）
    Dim xlSheet As Excel.Worksheet      'Excel COM 组件,Excel 工作簿（Workbook）中的一个工作表
    'Set xlApp = New Excel.Application              'NO1：实例化对象
    Set xlApp = CreateObject("Excel.Application")   'NO2：实例化对象
    Set xlBook = xlApp.Workbooks.Open(App.Path & "\example.xlsx")
    Set xlSheets = xlBook.Worksheets

    '（2）操作
    xlApp.Visible = False         'Excel 应用程序窗口的可见性控制
    '当 ScreenUpdating = True 时 ，Excel 将显示对工作表的更改；
    '当 ScreenUpdating = False 时，Excel 将在后台执行操作，不显示对工作表的更改，从而提高执行速度。
    xlApp.ScreenUpdating = False  'Excel 应用程序的屏幕更新控制
    
    
    ' 遍历Sheet1中每个单元格
    Set xlSheet = xlSheets(1) ' xlSheets("Sheet1")
    Dim cell As Excel.Range
    For Each cell In xlSheet.UsedRange.Rows(lngRowIdx).Cells
        ' 在这里进行单元格操作
        Debug.Print cell.Row, cell.Column, cell.Value
    Next cell

    
    xlApp.ScreenUpdating = True

    '（3）销毁
    ' 保存并关闭工作簿
    xlBook.Save     ' 保存Excel文件
    xlBook.Close    ' 关闭Excel文件
    xlApp.Quit      ' 关闭Excel Application对象
    
    ' 释放资源
    Set xlSheet = Nothing
    Set xlSheets = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
End Sub

调用代码：

Call xlTrvseByRangeCol(1)

输出结果：

 1             1            姓名
 2             1            张三
 3             1            李小龙
 4             1            王五
 5             1            赵六
 6             1            钱七

五、按列范围遍历单元格

列范围：您可以通过指定起始列和结束列来遍历特定的列，例如从第 A 列到第 A 列 。
在这里插入图片描述

封装代码：

Private Sub xlTrvseByRangeCol(ByVal lngColIdx As Long)
On Error Resume Next
'函数说明：指定列范围遍历单元格
'创建作者：Commas
'创建时间：2023-07-19
'修改时间：
'------传参说明------
’lngColIdx ：需要指定的列号
'------传参说明------

    If lngColIdx < 1 Then Exit Sub
    
    '（1）创建
    Dim xlApp As Excel.Application      'Excel COM 组件,Excel 应用程序的实例
    Dim xlBook As Excel.Workbook        'Excel COM 组件,Excel 应用程序中的一个工作簿（Workbook）
    Dim xlSheets As Excel.Sheets        'Excel COM 组件,Excel 工作簿中所有的工作表（Worksheet）
    Dim xlSheet As Excel.Worksheet      'Excel COM 组件,Excel 工作簿（Workbook）中的一个工作表
    'Set xlApp = New Excel.Application              'NO1：实例化对象
    Set xlApp = CreateObject("Excel.Application")   'NO2：实例化对象
    Set xlBook = xlApp.Workbooks.Open(App.Path & "\example.xlsx")
    Set xlSheets = xlBook.Worksheets

    '（2）操作
    xlApp.Visible = False         'Excel 应用程序窗口的可见性控制
    '当 ScreenUpdating = True 时 ，Excel 将显示对工作表的更改；
    '当 ScreenUpdating = False 时，Excel 将在后台执行操作，不显示对工作表的更改，从而提高执行速度。
    xlApp.ScreenUpdating = False  'Excel 应用程序的屏幕更新控制
    
    
    ' 遍历Sheet1中每个单元格
    Set xlSheet = xlSheets(1) ' xlSheets("Sheet1")
    Dim cell As Excel.Range
    For Each cell In xlSheet.UsedRange.Columns(lngColIdx).Cells
        ' 在这里进行单元格操作
        Debug.Print cell.Row, cell.Column, cell.Value
    Next cell

    
    xlApp.ScreenUpdating = True

    '（3）销毁
    ' 保存并关闭工作簿
    xlBook.Save     ' 保存Excel文件
    xlBook.Close    ' 关闭Excel文件
    xlApp.Quit      ' 关闭Excel Application对象
    
    ' 释放资源
    Set xlSheet = Nothing
    Set xlSheets = Nothing
    Set xlBook = Nothing
    Set xlApp = Nothing
End Sub

调用代码：

Call xlTrvseByRangeRow(2)

输出结果：

 2             1            张三
 2             2            技术部
 2             3             18

版权声明：本文为博主原创文章，如需转载，请给出：
原文链接：https://blog.csdn.net/qq_35844043/article/details/131827870

Commas.KM
关注
  • 0
    点赞
  • 踩
  • 18
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
vb编程遍历Excel中所有单元格，读取出所有单元格内容
08-22
vb编程遍历Excel中所有单元格，读取出所有单元格内容
VB导出excel的三种方法
09-04
VB6导出到Excel的三种方法全部编译通过，可以放心下载，文字描述较少，基本都是代码。
Excel VBA循环遍历判断简单语句
最新发布
`Steven的博客
02-18 159
【代码】Excel VBA循环遍历判断简单语句。
Excel VBA循环遍历数据的方法
`Steven的博客
02-07 420
If Trim(Cells(i, j).Value) = “” Then '判断必填数据是否填写。For i = MinRow To RetMaxRow - 1 '循环每一行。For j = MinCol To MaxCol - 1 '循环每一列。Next '数据检测通过，给出提示并使保存按钮。'检测数据按钮方法,如果检测通过，则保存按钮可用。MsgBox “没有有效数据”MsgBox “数据效验通过”MsgBox “必填数据”
Excel遍历单元格一键提取符合条件的整行数据！
ffcell2016的博客
06-21 5159
今天要和大家分享的是:Excel遍历单元格一键提取符合条件的整行数据！如下面动图所示，不用经过筛选数值，提取出销量>1500的整行数据到新表中指定的单元格。（方方格子插件）1.首先我们打开表格，看到了我们已经整理好的销售报表2.然后选择diy工具箱3.选择lotex选项卡​4.此时会弹出一个对话框，首先选择遍历区域为销售数据区域​5.然后选择如果点击添加，判定数据区域＞1500时6.那么点击添加，复制整行数据到新的行，选择输出数据的所在位置​7.单击执行按钮，运行完成，8.即可看到提取出来的数据结果​9.最
VB6.0通用选择路径并遍历文件夹及子文件夹.txt
05-19
VB6.0通用遍历所选文件夹及其多重子文件夹操作，直接使用Command按钮过程可以操作，无需其他额外控件。新建一个窗体，添加一个Command1按钮，添加一个listbox控件，名称为list1，打开一个Excel空白文件（如不需要请注释相关代码）。把本文件代码复制粘贴进去，单击按钮即可弹窗提示选择文件夹。
Excel - VBA实例: 遍历若干cell的值
guoqx的专栏
10-27 3835
下面的例子，使用Array的方法，来操作Range里的内容。Range.Value属性，可以看作一个Variant类型，种类是RangeValueDataType。在VBA里输入代码并运行以下的例子。
怎样用VBA遍历Word表格中各单元格才不会出现运行时错误，并给出判断Word表格中的单元格是不是合并单元格的方法
yivifu的专栏
02-18 2880
本文介绍vba遍历表格中的单元格的方法，可以保证不出现运行时错误，并给出了用VBA判断Word表格的单元格是不是合并单元格的方法。
VBA遍厉代码单元格
tzp9999的博客
01-06 399
这个宏将遍历工作表"Sheet1"中的A1到B10区域，并打印出每个单元格的值。您可以根据需要修改这个代码，以便遍历不同的工作表或区域，以及执行其他操作。
遍历Excel获取每个单元格数据
Tiger_shl的博客
03-29 6326
public static void GetExcelData(string filePath, string fileName, int operType, string sheet = "sheet1") { try { string md5 = string.Empty; ...
vbs编写读写excel数据
05-26 2073
要操作多个 Excel 文件，可以使用循环语句遍历文件列表，并在每次迭代中打开一个文件进行读取和处理。要将处理后的数据输出到一个新的 Excel 文件中，可以使用。对象来创建和写入新文件。vbs编写读写excel文件。
VB显示窗口和可用窗口遍历子窗口_VB遍历窗口_vb遍历子窗口_
10-02
VB遍历其他程序的子窗口，纯API实现。
vb操作EXCEL表的常用方法总结.doc
03-13
vb操作EXCEL表的常用方法
表格合并拆分_表格_excel_vb6excel表格合并汇总_
10-02
对excel文件及表格进行合并、查分、汇总等操作
VB6使用字典浅谈
热门推荐
Commas的博客
08-04 1万+
日期：2018年8月4日 作者：Commas 注释：这是本人写的第一篇文章，此处留个纪念。写此文章，一是方便自己，二是希望可以帮助有需要的人；本文若有哪些地方写的有所纰漏，还望各位看客指出，谢谢…… 目录 （1）字典定义与实例化 （1-1）字典的前期绑定（静态绑定） （1-2）字典的后期绑定（动态绑定） （2）字典对象的基本操作 （1）字典定...
VB6日期或日期字符串的格式化
Commas的博客
04-28 3125
日期：2022年04月28日 作者：Commas 注释：内置的Format、Format$虽然好用，但是有时候处理那些花里胡哨的日期或日期字符串就有点力不从心，所以就用想法用正则去实现一个方法，并且也兼容系统的正则对象文件损坏的情况，格式化日期字符串。 文章目录一、Format与Format$1-1）内置格式化函数格式日期 1.01-2）内置格式化函数格式日期 2.0二、正则处理日期格式 一、Format与Format$ 1-1）内置格式化函数格式日期 1.0 Option Explicit Pr.
VB6遍历目录（文件夹和文件）
Commas的博客
02-28 2491
VB6用Dir来遍历目录
VB6使用libxl读写Excel浅谈（一）
Commas的博客
11-18 2319
日期：2019年11月15日 作者：Commas 注释：学习就是为了忘记，让我们来先来了解一下一种无需安装Microsoft Excel和.NET框架，直接用libxl操作Excel的方法吧… 目录 文章目录一、前言二、异常捕获流程图三、异常捕获语法四、异常类型速查表 一、前言 分类 Error 定义 错误 SyntaxError 一般指语法错误，因为语法错误，无法正常解析...
vb批量提取多个excel单元格数据
09-07
VB是一种编程语言，可以利用它来批量提取多个Excel单元格的数据。以下是一个简单的示例： ``` Sub 批量提取数据() Dim 文件路径 As String Dim 表格 As Workbook Dim 工作表 As Worksheet Dim 单元格 As Range Dim 行数 As Integer Dim 列数 As Integer ' 设置文件路径，这里假设多个Excel文件在同一文件夹下 文件路径 = "C:\文件夹路径\" ' 循环遍历所有文件 文件名 = Dir(文件路径 & "*.xlsx") Do While 文件名 <> "" ' 打开文件 Set 表格 = Workbooks.Open(文件路径 & 文件名) ' 遍历工作表 For Each 工作表 In 表格.Sheets 行数 = 工作表.Cells(Rows.Count, 1).End(xlUp).Row 列数 = 工作表.Cells(1, Columns.Count).End(xlToLeft).Column ' 提取数据 For Each 单元格 In 工作表.Range(工作表.Cells(1, 1), 工作表.Cells(行数, 列数)) ' 在这里处理单元格数据，可以根据需要做任何操作，比如复制到另一个工作表或保存到数组等 ' 示例中只打印数据到Immediate窗口 Debug.Print 单元格.Value Next 单元格 Next 工作表 ' 关闭文件 表格.Close ' 继续下一个文件 文件名 = Dir Loop End Sub ``` 以上示例使用VB编写了一个名为"批量提取数据"的子过程。程序首先设置了一个文件路径变量，指向存放多个Excel文件的文件夹。然后，通过使用`Dir`函数遍历该文件夹下的所有.xlsx文件。对于每个文件，程序打开并遍历其中的工作表。然后，使用`Rows.Count`和`Columns.Count`函数确定每个工作表的行数和列数。接下来，程序使用嵌套的`For Each`循环遍历每个单元格，可以在循环中对单元格进行任何需要的操作。 请注意，以上示例只是展示VB如何批量提取多个Excel单元格数据的一种方式，根据实际需求，您可能需要根据具体情况进行调整和修改。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值