vba中如何让textbox文本框自动根据内容增大高度，同时tex来自tbox文本框插入一个表格中

Private Sub TextBox1_Change()
    TextBox1.Height = Int(Len(TextBox1.Text) / 6) * 10 + 20
End Sub
Private Sub UserForm_Initialize()
    TextBox1.Width = 40
    TextBox1.Height = 15
    TextBox1.MultiLine = True
End Sub可以给你一个思路。 第2个sub是给定初始的textbox宽度，并允许换行。
第一个sub是根据输入内容的长度变换textbox的高度，具体数据需要自己调整。给的这个例子，输入字母可以正常使用。汉字的话 换为 TextBox1.Height = Int(Len(TextBox1.Text) / 3) * 10 + 20
追问 : 能给我介绍一下 Int(Len(TextBox1.Text) / 3) * 10 + 20么，内容的长度除以3取整数在乘以10，在加20是什么意思，我试了一下，涉及字体过小，文本框的高度一次增加的过大，可有办法解决么？