【Excel VBA编程】某一列中既有合并单元格又有普通单元格,如何填充数据?

Sub WriteToMergedCells()    Dim ws As Worksheet    Dim lastRowA As Long, lastRowG As Long    Dim i As Long, gRow As Long    Dim targetCell As Range    ' 设置操作的工作表:当前活动工作表    Set ws = ActiveSheet    If ws Is Nothing Then Exit Sub    ' 获取A列所在表格数据行数以及G列数据的行数    '由于测试表格中A列数据是空的，以B列为准    lastRowA = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row    lastRowG = ws.Cells(ws.Rows.Count, "G").End(xlUp).Row    ' 如果G列没有足够数据，提示并退出    If lastRowG < 2 Then        MsgBox "G列没有可供写入的数据。", vbExclamation        Exit Sub    End If    ' 初始化G列数据行（从第2行开始）    gRow = 2    ' 遍历A列，从第2行开始    i = 2    Do While i <= lastRowA And gRow <= lastRowG        Set targetCell = ws.Cells(i, "A")        If targetCell.MergeCells Then            If targetCell.Row = targetCell.MergeArea.Row And targetCell.Column = targetCell.MergeArea.Column Then                targetCell.Value = ws.Cells(gRow, "G").Value                gRow = gRow + 1                i = i + targetCell.MergeArea.Rows.Count            Else                i = i + 1            End If        Else            ' 普通单元格            targetCell.Value = ws.Cells(gRow, "G").Value            gRow = gRow + 1            i = i + 1        End If    Loop    ' 提示完成    MsgBox "数据顺序写入完成！共将 " & (gRow - 2) & " 行G列数据写入A列。", vbInformationEnd Sub