VBA代码、记事本保存单元格内容

有时候我需要把单元格里的内容复制出来发送给别人 ，今天这个模板就可快速的帮你去完成。

把所有人的名字放到A1单元格，

点击保存到记事本。

点击保存到记事本按钮后就会在模板文件的相同目录下自动创建一个记事本。

打开记事本里面就是我们单元格里面的内容。

下面是代码分享

Sub 保存到记事本()

Dim qu As Range, xie As Range, js

Set qu = Sheet2.Range('a1', Sheet2.Cells(Rows.Count, 'a').End(xlUp))

On Error Resume Next '有错误代码继续运行

qu.SpecialCells(4).Delete '删除空白单元格，内容向上移动

For Each xie In qu

n = n + 1

js = js & ' ' & xie.Value

If n = 4 Then

js = js & Chr(10)

n = 0

End If

Next xie

Open ThisWorkbook.Path & '\导出数据.txt' For Output As #1 '打开当前工作簿下的记事本，如果没有就创建

Print #1, js '把内容写进记事本里

Close #1 '关闭记事本

MsgBox '已完完'

End Sub