Excel VBA需求：实现每隔4个单元格的复制粘贴循环

功能说明 #

宏会从B列第3行（B3为合并单元格B3-B6）开始，每隔4行读取B列的合并单元格内容，将其填充到A列对应的连续4行中——比如B3内容填充到A3-A6，B7内容填充到A7-A10，以此类推，彻底拆分合并单元格，解决无法按日期筛选的问题。

VBA代码实现 #

Sub 拆分合并单元格到对应行()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim currentRow As Long
    
    ' 设置目标工作表，可根据实际修改
    Set ws = ThisWorkbook.ActiveSheet
    
    ' 获取B列最后一行有数据的行号
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
    ' 从第3行开始，每次步进4行循环处理
    currentRow = 3
    Do While currentRow <= lastRow
        ' 将B列当前行内容填充到A列对应4行
        ws.Range("A" & currentRow & ":A" & currentRow + 3).Value = ws.Range("B" & currentRow).Value
        ' 步进4行，处理下一组
        currentRow = currentRow + 4
    Loop
End Sub

操作步骤 #

• 打开目标Excel文件，按Alt + F11打开VBA编辑器
• 右键点击左侧工程窗口中的目标工作表，选择「插入」→「模块」
• 将上述代码粘贴到模块窗口中
• 按F5运行宏，或回到Excel界面，通过「开发工具」→「宏」选择该宏执行

效果示例 #

处理前：B列是合并单元格（B3-B6、B7-B10等），无法直接按日期筛选
处理后：A列对应行均填充了B列合并单元格的内容，可正常使用日期筛选功能

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