137.对选定的范围进行数据填充（忽略单元格格式）

'###############################################################

'函数作用：对选定的范围进行数据填充（忽略单元格格式）

'###############################################################

Private Function FullWrit()

    Dim Sel As Range

    Dim Nx As Range

    If Selection.Row = 0 Or ActiveWorkbook.WriteReserved Then Exit Sub

    Set Sel = Selection

    For Each Nx In Sel.Rows

        Nx.NumberFormatLocal = Nx.Offset( ‐1).NumberFormatLocal

        Nx.Value = Nx.Offset( ‐1).Value

    Next

    Set Sel = Nothing

End Function