掌握 VBA（Visual Basic for Applications）与 Excel 的交互核心，在于理解如何精准地操控工作表、单元格和区域。这三个对象构成了 Excel 自动化的地基。

第一步：理解对象层级

在编写代码前，必须理清 Excel 的结构。这就像寄快递，必须先选国家，再选城市，最后选街道门牌号。

VBA 操作 Excel 的层级关系如下：

只有明确了层级，代码才能准确地找到目标。

第二步：操作 Worksheets（工作表）

工作表是数据的容器。你需要告诉 VBA 去哪一张表找数据。

1. 引用工作表的方式

有两种主要方式：通过名称或通过索引号。

2. 实操代码

按下 Alt + F11 打开 VBA 编辑器，插入 一个新模块，输入 以下代码：

Sub SelectSheet()
    ' 激活名为 "Sheet1" 的工作表
    Worksheets("Sheet1").Activate

    ' 在该工作表的 A1 单元格写入内容
    ActiveSheet.Range("A1").Value = "这是当前活动的工作表"
End Sub

运行这段代码（F5），你会发现 Excel 自动跳转到了 Sheet1 并修改了内容。

第三步：操作 Cells（单元格坐标）

Cells 是最精准的定位方式，它使用行号和列号来确定位置。这种方式非常适合在循环中使用。

1. 基本语法

语法格式为：Cells(行号, 列号)。

例如，Cells(1, 1) 代表 A1 单元格，Cells(5, 3) 代表 C5 单元格。

2. 循环填入数据

假设需要快速填入 1 到 10 的序号，手动输入太慢，使用 Cells 配合循环最方便。

输入以下代码：

Sub FillNumbersWithCells()
    Dim i As Integer

    ' 使用循环从第 1 行到第 10 行
    For i = 1 To 10
        ' 第 i 行，第 1 列（即 A 列）
        Cells(i, 1).Value = i
    Next i
End Sub

运行后，A1 到 A10 将自动填入数字 1 到 10。

第四步：操作 Range（区域）

Range 是最灵活的对象，它既可以指代单个单元格，也可以指代一大片连续或不连续的区域。

1. 选中连续区域

直接使用 Excel 的地址表示法（如 A1:B10）。

输入以下代码：

Sub SelectRange()
    ' 选中 A1 到 D10 的区域
    Range("A1:D10").Select

    ' 清除该区域的内容
    Selection.ClearContents
End Sub

2. 区域偏移

Offset 是一个非常强大的属性，它允许你基于某个单元格“移动”到另一个位置。

语法为：Offset(行偏移量, 列偏移量)。

例如，Range("A1").Offset(1, 0) 指的是 A1 下方一行的单元格（即 A2）。

输入以下代码体验偏移效果：

Sub UseOffset()
    ' 在 A1 写入基准点
    Range("A1").Value = "基准点"

    ' 在 A1 下方 2 行，右侧 3 列的位置写入（即 D3）
    Range("A1").Offset(2, 3).Value = "偏移后的目标"
End Sub

第五步：综合实战（数据搬运）

将上述知识结合起来，完成一个常见的任务：将一张表的数据搬运到另一张表，并加上时间戳。

假设源数据在 Sheet1 的 A1:A10，目标是搬运到 Sheet2 的 B2:B11，并在 A 列标记时间。

输入以下完整代码：

Sub DataTransfer()
    Dim i As Integer
    Dim sourceValue As String

    ' 1. 遍历源数据
    For i = 1 To 10
        ' 获取 Sheet1 第 i 行第 1 列的值
        sourceValue = Worksheets("Sheet1").Cells(i, 1).Value

        ' 2. 写入目标位置
        ' 目标表是 Sheet2
        ' 数据写入 B 列（第 2 列），行号偏移 +1（从 B2 开始）
        Worksheets("Sheet2").Cells(i + 1, 2).Value = sourceValue

        ' 3. 写入时间戳到 A 列（第 1 列）
        ' 使用 Now 函数获取当前时间
        Worksheets("Sheet2").Cells(i + 1, 1).Value = Now
    Next i

    ' 4. 自动调整列宽以适应内容
    Worksheets("Sheet2").Columns("A:B").AutoFit
End Sub

在执行此类循环操作时，如果涉及大量数据，可以通过计算总行数 $N$ 来动态控制循环次数。假设源数据区域为 $R$，其行数计算逻辑可表示为：

$$ N = Count(Rows) $$

在代码中，通常使用 UsedRange.Rows.Count 或 End(xlDown) 来动态确定 $N$ 的值，从而避免硬编码行号导致的数据遗漏或越界。

运行这段代码后，切换到 Sheet2 查看，你会发现数据已经完美复制并标注了处理时间。

掌握 Worksheets、Cells 和 Range 的配合使用，就等于拥有了 Excel 自动化的钥匙。通过代码定位、读取、写入数据，能将重复性机械劳动的时间压缩至秒级。