VBA实战：Range对象——你的Excel数据，全部由它掌管

VBA系列走到第四期，终于轮到全村的希望——Range对象。

为什么叫”全村的希望”？因为前面聊的Application、Workbook、Worksheet，最终都是为Range服务的。你写VBA，99%的操作都落在读写单元格数据上。Range就是你和数据之间的桥梁。

而且Range的内容特别多，这一期会是最干货的一篇。建议收藏，用到的时候随时翻。

一、引用单元格：五种方式

Range有很多种指代方式，先全部摆出来，知道有这些招就行：

' ① 用地址字符串（最直观）Range("A1")Range("A1:D10")Range("A1,B3,C5")             ' 不连续区域' ② 用行列号（适合循环）Cells(1, 1)                    ' 第1行第1列 = A1Cells(5, 3)                    ' 第5行第3列 = C5' ③ 用简写（Cells只能在活动表中用，Range也一样）[A1]                           ' 等价于 Range("A1")[A1:D10]                       ' 方括号写法，少打字' ④ 用行列交叉Range("B2:D5").Cells(2, 3)     ' 相对于B2:D5区域的第2行第3列 = D3' ⑤ 用偏移（非常实用）Range("A1").Offset(2, 3)       ' 从A1往下移2行、往右移3列 → D3

怎么选？

🧠 重点记住 Offset。实际工作中，你经常是”找到某个关键格，然后往右取值、往下填充”，Offset就是干这个的。

二、读写数据

这是Range最核心的能力。三种方式，各有用途：

① Value —— 读写值

' 写入Range("A1").Value = "姓名"Range("B1").Value = 100Range("C1").Value = Date' 读取Dim name AsStringname = Range("A1").Value

💡 小知识：.Value 可以省略不写，Range("A1") = "你好" 和 Range("A1").Value = "你好" 效果一样。但建议写上，代码更清晰。

② 批量读写（数组）—— 速度神器

这是VBA性能提升的关键技巧。逐个单元格读写很慢，但用数组批量处理，速度快10-100倍：

' 慢❌：逐个单元格读Dim i AsLongFor i = 1To10000If Cells(i, 1).Value > 100Then        Cells(i, 2).Value = "达标"EndIfNext i' 快✅：一次性读入数组，处理完再一次性写回Dim data As Variantdata = Range("A1:B10000").Value    ' 读入二维数组Dim i AsLongFor i = 1To UBound(data, 1)       ' UBound取数组上限If data(i, 1) > 100Then        data(i, 2) = "达标"EndIfNext iRange("A1:B10000").Value = data     ' 一次性写回

🚀 实测差距： 1万行数据，逐个处理大约需要2-3秒，数组方式只要0.05秒。数据量越大差距越夸张。养成用数组处理的习惯，你的VBA代码会快一个数量级。

③ Value2 —— 更快更稳

Range("A1").Value2    ' 和Value的区别：不处理日期和货币格式

Value 读日期时会自动转成VBA的Date类型，Value2 直接返回底层数值。如果你不需要格式转换，用 Value2 更快。

总结：

• 普通读写 → Value
• 性能敏感 → Value2
• 批量处理 → 数组（永远优先考虑）

三、动态定位：Offset、Resize、End

这三个属性组合起来，可以实现几乎所有的动态定位需求。

Offset —— 偏移

' 从A1出发Range("A1").Offset(1, 0)       ' → A2（往下1行）Range("A1").Offset(0, 1)       ' → B1（往右1列）Range("A1").Offset(2, 3)       ' → D3（下2右3）Range("A1").Offset(-1, 0)      ' 报错！A1上面没有行了

实际用法：找到标题行，在下方写入数据

Dim titleCell As RangeSet titleCell = Range("A:A").Find("合计")    ' 找到"合计"所在的单元格titleCell.Offset(1, 0).Value = "=SUM(B2:B10)"' 在合计下方写入公式

Resize —— 调整区域大小

' 从A1开始Range("A1").Resize(3, 4)      ' → A1:D3（3行4列）Range("A1").Resize(5, 1)      ' → A1:A5（5行1列，一列数据）Range("A1").Resize(, 3)       ' → A1:C1（行不变，扩展到3列）

实际用法：动态选中从A1开始的所有有数据的区域

Dim lastRow AsLong, lastCol AsLonglastRow = Cells(Rows.Count, 1).End(xlUp).RowlastCol = Cells(1, Columns.Count).End(xlToLeft).ColumnRange("A1").Resize(lastRow, lastCol).Select

End —— 跳到边界（Ctrl+方向键的代码版）

Range("A1").End(xlDown)       ' 从A1往下跳到非空区域的末尾Range("A1").End(xlToRight)    ' 从A1往右跳Range("A1").End(xlUp)         ' 往上跳Range("A1").End(xlToLeft)     ' 往左跳

最常用的组合：找最后一行

' A列最后一行有数据的行号Dim lastRow AsLonglastRow = Cells(Rows.Count, 1).End(xlUp).Row' 第一行最后一列有数据的列号Dim lastCol AsLonglastCol = Cells(1, Columns.Count).End(xlToLeft).Column

⚠️ End的坑： 如果从A1往下跳（End(xlDown)），中间有空行就会提前停。所以找最后一行通常从底部往上跳（End(xlUp)），这样能跳过中间的空行，到达真正的最后一行。

三者组合技

' 找到A列最后一行，然后往右选中3列Cells(Rows.Count, 1).End(xlUp).Resize(, 3).Select' 从B2开始，选中到最后一行最后一列（跳过标题行）Dim lastRow AsLong, lastCol AsLonglastRow = Cells(Rows.Count, 2).End(xlUp).RowlastCol = Cells(2, Columns.Count).End(xlToLeft).ColumnRange("B2").Resize(lastRow - 1, lastCol - 1).Select

四、格式设置

Range不只是管数据，格式也归它管：

With Range("A1:D10")' 字体    .Font.Name = "微软雅黑"    .Font.Size = 11    .Font.Bold = True    .Font.Color = RGB(255, 0, 0)      ' 红色' 背景色    .Interior.Color = RGB(255, 255, 0) ' 黄色' 边框    .Borders.LineStyle = xlContinuous    .Borders.Weight = xlThin' 对齐    .HorizontalAlignment = xlCenter    ' 水平居中    .VerticalAlignment = xlCenter      ' 垂直居中' 数字格式    .NumberFormat = "#,##0.00"' 千分位两位小数    .NumberFormat = "yyyy-mm-dd"' 日期格式    .NumberFormat = "0%"' 百分比' 列宽行高    .ColumnWidth = 15    .RowHeight = 20    .Columns.AutoFit                   ' 自动调整列宽EndWith

条件格式化（用代码加底色）：

Sub 标记大于100的单元格()Dim cell As RangeForEach cell In Range("B2:B100")If IsNumeric(cell.Value) And cell.Value > 100Then            cell.Interior.Color = RGB(144, 238, 144)  ' 浅绿色            cell.Font.Bold = TrueEndIfNext cellEndSub

五、查找和替换

手动按Ctrl+F能干的事，代码也能干，而且能批量干：

Find —— 查找

Dim found As RangeSet found = Range("A:A").Find(What:="合计", LookIn:=xlValues)IfNot found IsNothingThen    MsgBox "找到了！在 " & found.Address    found.Offset(1, 0).Value = "=SUM(B2:B" & found.Row - 1 & ")"EndIf

Find的常用参数：

查找全部匹配项：

Sub 查找所有匹配项()Dim found As Range, firstAddress AsStringSet found = Range("A:A").Find(What:="Excel", LookIn:=xlValues, LookAt:=xlPart)IfNot found IsNothingThen        firstAddress = found.Address    ' 记住第一次找到的位置Do            found.Interior.Color = RGB(255, 200, 200)  ' 标红Set found = Range("A:A").FindNext(found)    ' 找下一个LoopWhileNot found IsNothingAnd found.Address <> firstAddressEndIfEndSub

Replace —— 替换

' 简单替换Range("A1:D100").Replace What:="旧内容", Replacement:="新内容", _                           LookAt:=xlWhole' 清除区域内的所有空格Range("A1:D100").Replace What:=" ", Replacement:="", LookAt:=xlPart

六、复制、粘贴、清除

' 复制+粘贴（一行搞定）Range("A1:D10").Copy Destination:=Range("F1")' 只复制值（不复制格式和公式）Range("A1:D10").CopyRange("F1").PasteSpecial Paste:=xlPasteValuesApplication.CutCopyMode = False' 清除剪贴板的虚线框' 清除内容（保留格式）Range("A1:D10").ClearContents' 清除全部（内容+格式）Range("A1:D10").Clear' 只清除格式Range("A1:D10").ClearFormats

💡 性能提示： 大范围操作时，ClearContents 比逐个清空单元格快得多。能用Range方法批量处理，就别写循环。

七、实战：一键制作数据报表

综合运用Range的各项能力，写一个自动报表生成器：

Sub 自动生成报表()Dim ws As Worksheet, dataWs As WorksheetDim lastRow AsLong, lastCol AsLongDim i AsLong, totalSales AsDouble, totalCost AsDoubleSet ws = Worksheets("报表")Set dataWs = Worksheets("原始数据")    Application.ScreenUpdating = False' ① 读取数据到数组（快！）    lastRow = dataWs.Cells(Rows.Count, 1).End(xlUp).Row    lastCol = dataWs.Cells(1, Columns.Count).End(xlToLeft).ColumnDim data As Variant    data = dataWs.Range(dataWs.Cells(1, 1), dataWs.Cells(lastRow, lastCol)).Value' ② 清空报表区域    ws.Range("A5:Z100").ClearContents    ws.Range("A5:Z100").ClearFormats' ③ 写入表头Dim col AsLongFor col = 1To lastCol        ws.Cells(4, col).Value = data(1, col)Next col' ④ 处理数据并写入    totalSales = 0    totalCost = 0For i = 2To UBound(data, 1)For col = 1To lastCol            ws.Cells(i + 3, col).Value = data(i, col)Next col' 假设第3列是销售额，第4列是成本If IsNumeric(data(i, 3)) Then totalSales = totalSales + data(i, 3)If IsNumeric(data(i, 4)) Then totalCost = totalCost + data(i, 4)Next i' ⑤ 写入汇总行Dim summaryRow AsLong    summaryRow = lastRow + 3    ws.Cells(summaryRow, 1).Value = "合计"    ws.Cells(summaryRow, 3).Value = totalSales    ws.Cells(summaryRow, 4).Value = totalCost    ws.Cells(summaryRow, 5).Value = totalSales - totalCost  ' 利润' ⑥ 美化格式With ws.Range(ws.Cells(4, 1), ws.Cells(summaryRow, lastCol))        .Borders.LineStyle = xlContinuous        .Borders.Weight = xlThin        .Columns.AutoFitEndWith' 表头加粗加底色With ws.Range(ws.Cells(4, 1), ws.Cells(4, lastCol))        .Font.Bold = True        .Interior.Color = RGB(68, 114, 196)        .Font.Color = RGB(255, 255, 255)EndWith' 合计行加粗    ws.Range(ws.Cells(summaryRow, 1), ws.Cells(summaryRow, lastCol)).Font.Bold = True' 销售额列加千分位    ws.Range(ws.Cells(5, 3), ws.Cells(summaryRow, 3)).NumberFormat = "#,##0.00"' 利润列：正数绿色，负数红色For i = 5To summaryRowIf IsNumeric(ws.Cells(i, 5).Value) ThenIf ws.Cells(i, 5).Value > 0Then                ws.Cells(i, 5).Font.Color = RGB(0, 128, 0)ElseIf ws.Cells(i, 5).Value < 0Then                ws.Cells(i, 5).Font.Color = RGB(255, 0, 0)EndIfEndIfNext i    Application.ScreenUpdating = True    MsgBox "报表生成完毕！共 " & (lastRow - 1) & " 条数据 📊", vbInformationEndSub

这段代码的亮点：

1. 🚀 用数组读取数据，不用逐个单元格，速度快
2. 📐 用 End + Resize自动适应数据范围，数据增减不影响代码
3. 🎨 自动加边框、表头底色、千分位格式、利润正负色标
4. 💰 自动计算销售额、成本、利润合计

你只需要把”原始数据”表的数据替换成自己的，代码不用改一行就能用。

八、实战：数据区域自动转置

经常遇到的需求：别人的数据是横排的（一行一个项目），你需要竖排的（一列一个项目），或者反过来。

Sub 一键转置()Dim sourceRange As Range, targetCell As RangeDim lastCol AsLong, lastRow AsLong' 获取用户选择的区域OnErrorResumeNextSet sourceRange = Application.InputBox("请选择要转置的区域", "数据转置", Type:=8)OnErrorGoTo0If sourceRange IsNothingThenExitSubSet targetCell = Application.InputBox("请选择转置后的起始位置", "数据转置", Type:=8)If targetCell IsNothingThenExitSub' 用Transpose函数实现    targetCell.Resize(sourceRange.Columns.Count, sourceRange.Rows.Count).Value = _        Application.Transpose(sourceRange.Value)    MsgBox "转置完成 ✌️"EndSub

速查表

' 引用Range("A1") / Range("A1:D10")Cells(行, 列)[A1]' 偏移和调整Range("A1").Offset(行, 列)Range("A1").Resize(行数, 列数)Range("A1").End(xlDown / xlUp / xlToRight / xlToLeft)' 读写Range("A1").Value = "内容"data = Range("A1:D10").Value    ' 读入数组Range("A1:D10").Value = data    ' 写回数组' 格式.Font.Name / .Font.Size / .Font.Bold / .Font.Color.Interior.Color.Borders.LineStyle.NumberFormat.Columns.AutoFit' 查找Range("A:A").Find(What:="关键词")Range("A:A").FindNext(found)' 复制粘贴Range("A1:D10").Copy Destination:=Range("F1")Range("A1:D10").Copy  →  .PasteSpecial xlPasteValues' 清除.ClearContents    ' 清内容.Clear            ' 清全部.ClearFormats     ' 清格式' 动态边界Cells(Rows.Count, 1).End(xlUp).Row           ' A列最后一行Cells(1, Columns.Count).End(xlToLeft).Column  ' 第1行最后一列

📚 系统学习： 《别怕，Excel VBA其实很简单》，Range对象是全书中篇幅最大的一章，值得细读。

🎮 动手练： 打开一个有数据的Excel表，按 Alt + F11，试试运行”自动生成报表”那段代码（记得先建好”原始数据”和”报表”两张表）。感受一下数组处理的速度有多快 🚀