vba自动换行代码

在 VBA 中，可以使用 WrapText 属性来设置单元格的自动换行，具体的代码如下：

Range("A1").WrapText = True ' 设置 A1 单元格自动换行
上面的代码将 A1 单元格设置为自动换行，如果单元格中的文本内容超出了单元格的宽度，就会自动换行到下一行。
如果要应用到多个单元格，可以使用 Range 对象指定多个单元格：
Range("A1:B5").WrapText = True ' 设置 A1 到 B5 区域内的单元格自动换行
如果你希望 VBA 在输入文本时自动换行，可以在字符串中使用 _ 符号，将字符串分成多行，例如：
Dim str As String
str = "这是一行文字，" & _
      "这是第二行文字，" & _
      "这是第三行文字。"
Range("A1").Value = str ' 将文本写入 A1 单元格
上面的代码将字符串 str 分成了三行，并将其写入了 A1 单元格。注意到 _ 符号可以将一行代码拆分为多行，但是它只能出现在一行的末尾，不能出现在行中间。
希望这些信息对你有所帮助。