Excel vba开发 合并单元格拆分自动填充功能、在每一条数据后面插入空白行、将地理坐标的经纬度转换成度等功能

写在前面:

        最近老大丢给我一个数据量比较大，比较复杂的表，让我用VB去处理，刚被分到这个任务的时候一脸茫然，对Excel VB开发一点都不了解，所以就自己研究并查资料，最后终于解决了。

一、Excel VBA拆分合并单元格并自动填充

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim n As Long, i As Long, c As Range
    n = ActiveSheet.UsedRange.Count
    For i = 1 To n
        If ActiveSheet.UsedRange.Item(i).MergeCells = True Then
            ActiveSheet.UsedRange.Item(i).Select
            Selection.UnMerge
            With Selection
                .Value = .Cells(1, 1)
            End With
            Selection.Cells(1, 1).Copy
            Selection.PasteSpecial Paste:=xlPasteFormats