0

我目前正在通过 VBA 表单将一些值插入到 Excel 电子表格中。到目前为止，我所做的一切都很好，但我想知道是否有办法将文本设置为自动换行在每个单元格中？

就目前而言，似乎一切都会相互重叠。

Private Sub btnSubmit_Click()
    Dim ws As Worksheet
    Dim rng1 As Range
    Set ws = Worksheets("main")
    Set rng1 = ws.Cells(Rows.Count, "a").End(xlUp)
    rng1.Offset(1, 0) = cbo_deptCode.Value
End Sub
4

1 回答 1

1

尝试

With rng1.Offset(1, 0)
    .Value = cbo_deptCode.Value
    .WrapText = True
End With
于 2012-10-28T21:14:25.223 回答