如何在记事本中批量添加数字

相对于微软的Word来说“记事本”的功能确实是太单薄了，只有：新建，保存，打印，查找，替换这几个功能。但是“记事本”却拥有一个Word不可能拥有的优点：打开速度快，文件小。我相信对于这一点大家一定是深有感触地，一点就打开；同样的文本文件用Word保存和用记事本保存的文件大小就大不相同，所以对于大小在64KB以下的纯文本的保存最好还是采用记事本。

讯飞语音输入法（原讯飞语音输入法），是由中文语音产业领导者科大讯飞推出的一款输入软件，集语音、手写、拼音、笔画、双拼等多种输入方式于一体，又可以在同一界面实现多种输入方式平滑切换，符合用户使用习惯，大大提升输入速度。

2。按ALT+F11，在打开的新窗口中，贴以下代码

Sub a()

For i = 1 To 10251

Cells(i, 1) = "<AllDrop Items='" &i &"' Count='1,1' Chance='10%' />"

Next i

Columns("A:A").Select

Range("A10024").Activate

Selection.Replace What:="'", Replacement:="""", LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

ReplaceFormat:=False

End Sub

3。贴完后直接按F5

4。产生的结果就在EXCEL里面，复制EXCEL里面的第一列，贴到记事本上就行了