该操作目的是将编写好的VBA程序转化成模块，并应用于其它Excel文件。

1、插入模块

    如前面所述，打开VBA编程窗口，点击“插入”“模块”后，在左侧栏中出现“模块”。

    http://s2/bmiddle/003wenQtzy6KSKVBcpH91&690

2、程序编写

    双击标签“模块”，在弹出的窗口中写入如下命令：

Sub 加空格()

Cells.Replace "AA", "A A"

Cells.Replace "AT", "A T"

Cells.Replace "AG", "A G"

Cells.Replace "AC", "A C"

Cells.Replace "TA", "T A"Cells.Replace "TT", "T T"

Cells.Replace "TG", "T G"

Cells.Replace "TC", "T C"

Cells.Replace "GA", "G A"

Cells.Replace "GT", "G T"

Cells.Replace "GG", "G G"

Cells.Replace "GC", "G C"

Cells.Replace "CA", "C A"Cells.Replace "CT", "C T"

Cells.Replace "CG", "C G"

Cells.Replace "CC", "C C"

Cells.Replace "00", "0 0"

End Sub

注意：第一行命令“Sub 加空格()”不能使用“Private Sub加空格()”，可以使用“Public sub加空格()”。

3、输出保存

    关闭程序编写窗口，点击“开始”“另存为”，选择“保存类型”为“Excel启用宏的工作簿.xlsm”。

    http://s10/bmiddle/003wenQtzy6KSKVZ3O999&690

4、模块应用

    打开保存的“xlsm”文件，点击“开始”“打开”，选择预操作的Excel文件，点击“宏”，选择编写的保存的“xlsm模块”，再单击“执行”，例如“加空格--模块自制.xlsm！”。

http://s4/mw690/003wenQtzy6KSKWk8Kf13&690