首先，咱们先搞清楚你之前代码出错的原因，再给出正确的实现方式——全程用变量操作，适合放进Do-While循环里，绝对不用硬编码单元格地址。

你的代码为什么不行？ #

咱们逐个拆解问题：

• 分三次合并的写法：

  Range(D, D.Offset(0, 1)).merge
  Range(D & D.Offset(0, 2)).merge
  Range(D & D.Offset(0, 3)).merge
  

  第一次合并后，D指向的已经是合并后的单元格了，后续操作自然只会合并两个单元格；而且Range(D & D.Offset(0, 2))这种写法本身就不对——D是Range对象，直接和另一个Range对象拼接，会默认调用它们的Address属性，但Range函数接受两个Range对象作为参数时，根本不需要拼接字符串。

• 拼接地址的写法：

  Set E= D.Offset(0,3)
  Range(D & ":" & E).merge
  

  这里的错误是把Range对象直接和字符串拼接，正确的Range范围写法应该是直接传入两个Range对象（起始和结束），而不是把它们的地址拼成字符串。

正确的实现方式 #

要合并从D开始的4个连续单元格（同一行，向右的4个），只需要一行代码：

Range(D, D.Offset(0, 3)).Merge

解释一下：

• D是你定义的起始单元格Range变量
• D.Offset(0, 3)表示从D向右偏移3列的单元格（也就是第4个目标单元格，因为偏移0行3列）
• Range(起始单元格, 结束单元格)会自动选中这两个单元格之间的所有连续单元格，正好是4个
• 最后调用.Merge完成合并操作

适合Do-While循环的完整示例 #

如果要把这个逻辑放进Do-While循环里（比如逐行处理数据），参考以下示例代码：

Sub MergeFourCellsInLoop()
    Dim currentStartCell As Range
    ' 初始化起始单元格，比如从Sheet1的A1开始
    Set currentStartCell = ThisWorkbook.Sheets("Sheet1").Range("A1")
    
    ' 循环处理，直到起始单元格为空时停止
    Do While Not IsEmpty(currentStartCell.Value)
        ' 合并当前行从起始单元格开始的4个连续单元格
        Range(currentStartCell, currentStartCell.Offset(0, 3)).Merge
        ' 移动到下一行的同一列，准备下一次循环
        Set currentStartCell = currentStartCell.Offset(1, 0)
    Loop
End Sub

这个示例全程用变量currentStartCell控制起始位置，没有任何硬编码的单元格地址，完全满足你循环中使用的需求。

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