將Excel電子表格值設置爲從VBA表格中插入值時自動換行文本

Question

我目前通過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 

Answer 1

嘗試

With rng1.Offset(1, 0) 
    .Value = cbo_deptCode.Value 
    .WrapText = True 
End With