大家好！今天共同学习下VBA中单元格属性Offset和Resize操作。

一、Offset：单元格的"导航仪"

功能说明：以当前单元格为坐标原点，灵活跳转位置
语法格式：单元格.Offset(行数,列数)
实际场景：批量处理动态数据时，无需手动数格子！

经典用法：

' 从A1出发向下跳2行，向右跳1列 → 到达B3
Range("A1").Offset(2, 1).Select

' 动态遍历数据表（假设数据从A2开始）
For i = 1 To 10
    Cells(2, 1).Offset(i-1, 0).Value = "第" & i & "条"
Next i

避坑指南：

• 正数向下/向右移动，负数向上/向左移动
• Offset(0,0)就是原地不动
• 移动超出边界会报错（如从A1.Offset(-1,0)）

二、Resize：区域变形的"橡皮擦"

功能说明：调整选区范围大小
语法格式：单元格.Resize(新行数,新列数)
实际场景：批量复制不规则数据区域时超好用！

经典用法：

' 把A1扩展成3行2列的选区 → A1:B3
Range("A1").Resize(3, 2).Select

' 动态获取数据区域（假设A列有不定长数据）
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
Range("A1").Resize(lastRow).Copy Destination:=Sheet2.Range("A1")

避坑指南：

• 不写参数时保持原维度（如.Resize(,3)只改列数）
• 可用Rows/Columns属性快速调整单维度

Range("A1").Resize(5)        ' 5行1列
Range("A1").Resize(,3)       ' 1行3列

三、组合技：Offset+Resize=动态选区神器

场景实战：批量标记隔行数据

Sub 隔行染色()
    For i = 1 To 10 Step 2
        ' 从A1开始，每次下移i-1行，选中1行3列
        Range("A1").Offset(i-1, 0).Resize(1, 3).Interior.Color = RGB(200, 200, 200)
    Next i
End Sub

效果说明：自动将A1:C10 区域每隔一行填充灰色背景

四、头条专属福利：超实用代码模板

场景1：动态创建汇总表

Sub 智能汇总()
    Set sourceRng = Range("A1").CurrentRegion ' 获取原始数据区
    Set newRng = sourceRng.Offset(sourceRng.Rows.Count + 2).Resize(1) ' 下移N行创建新区
    newRng.Formula = "=SUM(" & sourceRng.Address & ")" ' 自动添加汇总公式
End Sub

场景2：自动生成数据透视模板

Sub 一键透视()
    Set dataRng = Range("A1").CurrentRegion
    Set pivotLoc = dataRng.Offset(0, dataRng.Columns.Count + 2) ' 右侧空2列创建透视
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, _
        SourceData:=dataRng).CreatePivotTable TableDestination:=pivotLoc.Cells(1,1)
End Sub