Question

我正在尝试从列的顶部开始并向下移动合并每个空单元格，直到到达下一个包含信息的单元格。例如，如果我在单元格A1中有“步骤1”，则单元格A2到A5为空，单元格A6包含“步骤2”，我想将A1合并到A5。然后如果A22包含“步骤3”而单元格A7：A21为空，我会将A6合并到A21。

真的很感激任何帮助。感谢

Answer 1

我完全赞同这些评论，如果你可以避免它们合并它们，让它们看起来使用边框合并;但是，如果你必须这样做你会要求的：

   Dim cell As Range
   Dim StartCell As Range
   Dim EndCell As Range

   For Each cell In Range("a1", Range("a1000000").End(xlUp))
      If cell <> "" Then
         If StartCell Is Nothing Then
            Set StartCell = cell
         Else
            Set EndCell = cell.Offset(-1, 0)
            Range(StartCell, EndCell).Merge
            Set StartCell = cell
            Set EndCell = Nothing
         End If
      End If
   Next cell

祝你好运！

合并到下一个填充的单元格

1 个答案: