如何定义包含合并单元格与普通单元格的Excel VBA Range范围？

假设我有A1至E1单元格，其中A1、B1为普通单元格，C1、D1、E1合并为一个单元格。想要定义包含这些单元格（即A1到E1）的Range，但如下代码无法运行：

Dim startRow, endRow, startColumn, endColumn As Long

startRow = 1
endRow = 1
startColumn = 1
endColumn = 3

Set rng = Range(Cells(startRow, startColumn), Cells(endRow, endColumn))

将endColumn分别设为3和5（合并单元格的首、末列）均报错，推测是合并单元格导致的问题，希望找到解决方案。

核心错误分析 #

原代码报错并非合并单元格直接导致，而是存在以下问题：

• 变量声明不规范：VBA中仅最后一个变量会被指定Long类型，其余默认是Variant，可能引发类型不匹配；
• 未声明rng变量：若开启Option Explicit会直接触发“变量未定义”错误；
• 未绑定工作表：Cells和Range默认引用当前活动表，若活动表不是目标表会报错；
• 范围指定错误：当endColumn=3时仅选中A1:C1，并非需求的A1:E1范围。

解决方案 #

1. 规范变量声明
   给所有变量明确指定类型，同时声明rng为Range类型：

   Dim startRow As Long, endRow As Long, startColumn As Long, endColumn As Long
   Dim rng As Range
   

2. 绑定目标工作表
   明确指定操作的工作表，避免依赖活动表：

   Dim ws As Worksheet
   Set ws = ThisWorkbook.Worksheets("Sheet1") '替换为你的工作表名称
   

3. 正确定义目标Range
   不管单元格是否合并，直接指定完整的A1:E1范围，有两种方式：

   • 使用单元格地址字符串：

     Set rng = ws.Range("A1:E1")
     

   • 使用Cells指定起止单元格（结束列设为5对应E列）：

     startRow = 1
     endRow = 1
     startColumn = 1
     endColumn = 5
     Set rng = ws.Range(ws.Cells(startRow, startColumn), ws.Cells(endRow, endColumn))
     

内容的提问来源于stack exchange，提问作者tectactoe