1、打开Excel表格，点击【开发工具】，【Visual Basic】进行打开VBA编辑器。
2、在VBA编辑器的菜单栏上面点击【插入】，【模块】。
3、在代码窗口里面输入一下程序：Sub Char10()On Error Resume Next '忽略执行过程中遇到的错误Dim i As Long '定义i为长整型Set Mysheet1 = ThisWorkbook.Worksheets("Sheet1")For i = 2 To 1200 '循环执行至1200行Mysheet1.Cells(i, 2) = "正向：" & Mysheet1.Cells(i, 1) & ".FWD" & _Chr(10) & "反向：" & Mysheet1.Cells(i, 1) & ".REV"NextEnd Sub
4、程序函数释义：①“Set Mysheet1 = ThisWorkbook.Worksheets("Sheet1")”是指将本工作薄里面的“Sheet1”工作表赋值给了“Mysheet1”；②&是字符之间的连接符；③Chr(10)是换行符。
5、在VBA编辑器的工具栏里面点击“运行”图标运行程序。
6、程序运行完成后，在Excel表格里面就可以看到所需的结果。
