EXCEL 求一段根据单元内容自动调整行高的代码

vb代码，使excel能自动根据单元格内容为文件名，以单元格内容为文件夹保存的代码，

Sub xx() Range("A1:F6").Rows.AutoFitEnd Sub这样就可以自动调整行高了！

If Len(Cells(i,1) >= 10 Then '如果第i行第一个单元格的内容长度大于等于10，则增加行高。（根据情况自行调整你最大单元格的位置）Rows(i).RowHeight = Rows(i).RowHeight + 12*(Len(Cells(i,1))/20 )End If Next End Sub 我漏掉了Rows(i).RowHeight = Rows(i).RowHeight + 12*...

自动调行高就需要用VBA了。按alt+F11，把下面的代码写到相应的工作表中 Private Sub Worksheet_Change(ByVal Target As Range)If Target.Column = 2 And Target.Row > 8 Then If Target.Value > 0 And Target.Value < 10 Then Target.RowHeight = Target.Value * [a4].Height + (Target.Val...

代码放在thisworkbook里面 Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)a = Target.Row Rows("1:1").RowHeight = 20 If a < 2 Then Exit Sub If Cells(a, 1) <> "" And Cells(a - 1, 1) <> "" Then Rows(a & ":" & a).RowHeight = Rows...

首先，打开需要调整的EXCEL文件。2.单击格式——点击行——选择自动调整行高。3.然后再单击格式——点击列——选择自动调整列宽。4.接下来先按下ctrl+A全选单元格（只有选中单元格，EXCEL才知道要操作的区域）5.然后根据自己要求，可以把字体设置的大一点。6.现在单元格的行高已经自动调大了，7.然后在...

选择那列 然后：先做好模板，格式先设置自动换行。格式-行-最适合的行高。或者在代码中加入：set wb = excel.workbooks.add("模板.xlt")'数据填充代码。。。wb.sheets(1).Columns("B:B").Rows.AutoFit ‘列号可以改 我也做过这样的程序。就是这样完成的。

首先，打开你需要调整的Excel工作簿。接着，点击菜单栏中的“格式”选项，然后选择“行”部分，找到并单击“自动调整行高”。这样，Excel会根据单元格内容的长度自动调整行的高度，以确保内容清晰可见。同样地，为了确保列宽也符合内容需求，点击“列”选项，选择“自动调整列宽”。此时，如果你已经全选了...

1.首先新建并打开EXCEL单击格式——行——自动调整行高。2.然后再单击 格式——列——自动调整列宽。3.接下来先按下ctrl+A全选单元格。4.然后我们把字体设置的大一点。5.现在单元格的行高已经自动调大了，然后我们在a1单元格中输入数字让它自动调整列宽。这样就解决了使excel表格的行高随字体大小而...

选择需要自动调整高度 的单元格 点击开始-格式-自动调整行高即可。