巧用VBA里面的换行符chr(10)

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"

Next

End Sub

4、程序函数释义：

①“Set Mysheet1 = ThisWorkbook.Worksheets("Sheet1")”是指将本工作薄里面的“Sheet1”工作表赋值给了“Mysheet1”；

②&是字符之间的连接符；

③Chr(10)是换行符。

5、在VBA编辑器的工具栏里面点击“运行”图标运行程序。

6、程序运行完成后，在Excel表格里面就可以看到所需的结果。