时间戳

首页 > 解决方案 > 相对于一个单元格自动调整一行，但不是单元格的所有行

excel - 相对于一个单元格自动调整一行，但不是单元格的所有行

问题描述

我在 Excel (listobject) 中有一个表格，它根据某些条件在单元格中加载文本。

加载后，我想“自动调整”一列的单元格（listobjects 的所有单元格都有属性 wraptext=true）但我不希望自动调整第 5 列的单元格（因为它们每个都包含很多行。

这是我到目前为止的代码

dim SRTbl as listobject
set SRTbl = thisworkbook.sheets(1).listobjects(1)

' all rows height 14
SRTbl.DataBodyRange.RowHeight = 14

'I would like that the cells of column 4 are autofit-ed
'but NOT the cells of column 5
SRTbl.listcolumns(4).databodyrange.entirerow.autofit

这不起作用，因为它会自动调整整行。在第 5 列中，单元格包含多行文本，我只希望自动调整第 4 列的单元格内容

以下内容也不起作用：

SRTbl.ListColumns(4).Cells.autofit

以防万一它不完全清楚。第 4 列包含具有 1、2 或 3 行的文本。第 5 列包含多行 >10 的文本

我想将单元格的高度调整为第 4 列而不是第 5 列的单元格的行。

谢谢

标签： excelrowheightlistobject

解决方案

在行上放一个断点： SRTbl.listcolumns(4).databodyrange.entirerow.autofit . 在 IDE 的即时窗格中输入： SRTbl.listcolumns(4).databodyrange.entirerow.select，您将看到整行被选中。

更改SRTbl.listcolumns(4).databodyrange.entirerow.autofit为SRTbl.listcolumns(4).autofit它应该可以工作。

推荐阅读