当Excel中有多行数据时,恰巧我们也需要把每一行数据都存储成一个txt文档,那么我们要手工一个一个Ctrl+c——>Ctrl+v——>Ctrl+s吗?答案是肯定不行的哇,因为本人需要处理一个存储了6万多条数据的文档,为了珍爱生命,那么本人就利用office里的VBA来投机取巧了!

首先利用快捷键Alt+F11,打开Excel的VBA,输入如下代码:

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    Dim nRow As Long
    nRow = Range("a65536").End(xlUp).Row
    For i = 1 To nRow
        Open ThisWorkbook.Path & "\文件" & i & ".txt" For Output As #1
        Print #1, Range("a" & i)
        Close #1
    Next
    Application.ScreenUpdating = True
    MsgBox "ok"

End Sub

然后点击运行即可。

但是当主主看到,当我关闭VBA时,时候就看不出这个文档的特殊功能了时,就在Excel上加了一个按钮控件。在开发工具里面点击控件,点击按钮,进行插入,双击按钮,输入以上代码,即可。