最近在处理Excel表格里面一些有规律的数据需要使用到换行，使用公式里面的换行函数CHAR(10)不起作用。如果进行手动换行，数据量较大，比较麻烦，最后想到的是可以使用VBA里面的换行符Chr(10)进行换行，省时省力。工具/原料moreExcel 2010方法/步骤1/6分步阅读

打开Excel表格，点击【开发工具】，【Visual Basic】进行打开VBA编辑器。

2/6

在VBA编辑器的菜单栏上面点击【插入】，【模块】。

3/6

在代码窗口里面输入一下程序：

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/6

程序函数释义：

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

②是字符之间的连接符；

③Chr(10)是换行符。

5/6

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

6/6

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

注意事项

谢谢品阅，欢迎指正。

EXCEL换行符