EXCEL的自动调行我会，但是出现了一个问题就是多行合并的自动调行。如A1,A2,A3我合成了一个单元格。我用自动调行（多行文本），发现只能显示出一行，其它几行文本都没有显示！！这可怎么办。后来我用VBA去做设行宽，一行多少个字，多于多少时就就增加一行，这样在高度上就可以加一行高，可是又出现一个问题：EXCEL不是每行字数都一样，如最后是4589这个数字 本来到45以下就是第二行了 可是4589是个整体直接就全部下行 或全部本了行。弄得本来两行变成了三行，或一行。 我想要的是自动调节行高，手动一行行调是可以 但如果我有这样合并的单元格数十万行 哪不死人了！高手快点来呀！ 用VBA也可以 ！！！快来人呀！ 合并送单元格调整。
用宏解决了三种类型的合并单元格，但是，希望数据不要太多，我发现效率有点低，但目前我只能做到这一步了。附件：合并单元格自动生成合适的行高.xls
提问者对答案的评价：
帮你找了一个，看看有没用?Private Sub MergeCell_AutoHeight()Dim snCurrRowH As Single, MergedCellRgWidth As SingleDim CurrCell As RangeDim ActiveCellWidth As Single, PossNewRowHeight As SingleDim stCell As StringWith ActiveCell.MergeArea If .Rows.Count = 1 And .WrapText = True Then
Application.ScreenUpdating = False
snCurrRowH = .RowHeight
ActiveCellWidth = ActiveCell.ColumnWidth
For Each CurrCell In Selection
MergedCellRgWidth = CurrCell.ColumnWidth + MergedCellRgWidth
Next
.MergeCells = False
.Cells(1).ColumnWidth = MergedCellRgWidth
.EntireRow.AutoFit
PossNewRowHeight = .RowHeight
.Cells(1).ColumnWidth = ActiveCellWidth
.MergeCells = True
.RowHeight = IIf(snCurrRowH > PossNewRowHeight, snCurrRowH, PossNewRowHeight)
End IfEnd WithEnd Sub
合并后的单元格数据处理是存在一些问题的，对于不能自动换行，只能用土办法，可以自己拉动表格下边框来扩大单元格的大小。所以，能不合并单元格就最好不要合并。 |
