编程论坛 → Excel/VBA论坛

单元格强制换行的VBA代码怎么写

wls740903 发布于 2022-09-28 22:26， 1149 次点击

只有本站会员才能查看附件，请登录

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

5 回复

吹水佬2022-09-29 08:03

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

wls7409032022-09-29 10:14

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

吹水佬2022-09-29 10:32

以下是引用wls740903在2022-9-29 10:14:25的发言：

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

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

pvm20002023-02-19 08:25

以下是引用wls740903在2022-9-29 10:14:25的发言：

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

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

山泉水2023-06-01 13:29

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