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

1、打开Excel表格，点击【开发工具】，【Visual Basic】进行打开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

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