【VBA】EXCEL - VBA 遍历工作表的 5 种方法，以及注意事项

[1. 遍历单列数据并赋值](#1. 遍历单列数据并赋值)

[2. 遍历整个工作表的数据区域并赋值](#2. 遍历整个工作表的数据区域并赋值)

[3. 遍历指定范围的数据并赋值](#3. 遍历指定范围的数据并赋值)

[4. 遍历多列数据并赋值](#4. 遍历多列数据并赋值)

[5. 遍历所有工作表中的数据并赋值](#5. 遍历所有工作表中的数据并赋值)

1. 遍历单列数据并赋值

vbnet 复制代码

Sub UpdateColumnData()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 修改为你的工作表名称
    
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 获取最后一行
    
    Dim i As Long
    For i = 1 To lastRow
        ws.Cells(i, 1).Value = ws.Cells(i, 1).Value * 2 ' 例如：将 A 列的每个值乘以 2
    Next i
End Sub

2. 遍历整个工作表的数据区域并赋值

vbnet 复制代码

Sub UpdateEntireSheetData()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 修改为你的工作表名称
    
    Dim cell As Range
    For Each cell In ws.UsedRange
        If IsNumeric(cell.Value) Then
            cell.Value = cell.Value + 10 ' 例如：将数值单元格的值增加 10
        End If
    Next cell
End Sub

3. 遍历指定范围的数据并赋值

vbnet 复制代码

Sub UpdateSpecificRangeData()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 修改为你的工作表名称
    
    Dim cell As Range
    For Each cell In ws.Range("A1:E10")
        If Not IsEmpty(cell.Value) Then
            cell.Value = UCase(cell.Value) ' 例如：将文本转换为大写
        End If
    Next cell
End Sub

4. 遍历多列数据并赋值

vbnet 复制代码

Sub UpdateMultipleColumnsData()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 修改为你的工作表名称
    
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 获取最后一行
    
    Dim i As Long, j As Integer
    For i = 1 To lastRow
        For j = 1 To 5 ' 假设要遍历 A 到 E 列
            ws.Cells(i, j).Value = ws.Cells(i, j).Value & " - 已更新" ' 例如：在每个单元格后追加文本
        Next j
    Next i
End Sub

5. 遍历所有工作表中的数据并赋值

vbnet 复制代码

Sub UpdateAllSheetsData()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        Dim cell As Range
        For Each cell In ws.UsedRange
            If IsNumeric(cell.Value) Then
                cell.Value = cell.Value * 2 ' 例如：将数值单元格的值乘以 2
            End If
        Next cell
    Next ws
End Sub

注意事项：

性能优化：对于大数据集，建议关闭屏幕更新和自动计算以提高效率

vbnet 复制代码

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
' ... 执行操作 ...
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

错误处理：添加适当的错误处理逻辑，以应对可能遇到的问题，如空单元格、非数字值等。
备份数据：在对实际数据进行操作之前，最好先备份原始数据，以防出现意外情况。