每两行单元格合并，保留左上角的VBA该这么写？

刘汐悦

工作簿2222.rar

如图所示的数据，是从某个大表摘出来的，大概有400行，将每两行合并单元格，A1:A2，B1:B2，C1:C2，然后是A3:A4,B3:B4，C3:C4.....保留左上角数据，后续还要粘贴回去，自己结合AI写了一个VBA，


Sub MergeEveryTwoRows()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets(1) ' 假设我们要操作第一个工作表
   
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row ' 找到第一列的最后一个非空行
   
    Dim i As Long
    For i = 1 To lastRow Step 2 ' 从第一行开始，每次增加2行
        If i + 1

逸尘聊聊天

适合快速入门和查漏补缺。

飞砂

示例简单易懂，举一反三很方便。

摩卡咖啡

排版舒服，阅读体验很好。

初伟

代码示例很实用，直接就能用。

子夜星

希望以后多分享这类实战经验。

海心洋

思路很新颖，学到了。

倾听风的作曲

非常良心的技术分享，支持。

狂风无爱

适合自学，不用再到处找资料。

涵烟客

图文搭配很好，理解更快。