如附件，有200多个单元格要强制换行

ActiveCell.value = "语文"+chr(10)+"张一梅"

有几百个单元格，这样很麻烦

用程序代码去处理也麻烦，那就只能去找神手了。

写个循环，用二楼的方法，这就搞定了

Option Explicit

Sub enTer()

Dim s1$, s2$, i&, n%

i = 1

Do While Cells(i, 1) <> ""

    n = Len(Cells(i, 1))

    s1 = Left(Cells(i, 1), 2)
   
    s2 = Right(Cells(i, 1), n - 2)

    Cells(i, 2) = s1 & Chr(10) & s2
   
    i = i + 1
   
Loop

End Sub