[已解决]如何批量取消合并单元格并加上字符

jian82372387

如何通过附件内工作簿内原始数据工作表内A列中如有合并单元格全部取消并提取上方单元格得楼层号链接“南”字，许哦需效果如附件内所示。（最好能通过自行选取某文件夹文件内文件达到该效果）。正常工作簿里只有原始数据工作表，所需效果工作表。

最佳答案

月排行榜 / 总排行榜

limonet

2022-6-26 09:25

Sub UnMergeS()
    Dim i%
    For i = 3 To Range("A" & Rows.Count).End(xlUp).Row
        If Cells(i, 1).MergeCells Then
            Cells(i, 1).UnMerge
            Cells(i, 1).Borders(xlEdgeBottom).LineStyle = xlContinuous
        End If
        If Cells(i, 1) = "" Then Cells(i, 1) = Cells(i - 1, 1) & "南"
    Next i
End Sub

跳转到最佳答案楼层

limonet

Sub UnMergeS()
    Dim i%
    For i = 3 To Range("A" & Rows.Count).End(xlUp).Row
        If Cells(i, 1).MergeCells Then
            Cells(i, 1).UnMerge
            Cells(i, 1).Borders(xlEdgeBottom).LineStyle = xlContinuous
        End If
        If Cells(i, 1) = "" Then Cells(i, 1) = Cells(i - 1, 1) & "南"
    Next i
End Sub

jian82372387

limonet 发表于 2022-6-26 09:25
Sub UnMergeS()
    Dim i%
    For i = 3 To Range("A" & Rows.Count).End(xlUp).Row

感谢

SON3891

能讲解一下吗？学习，看不懂，