Excel 滚动浏览数据时，需要按照新数据显示重新包装文本

我有一个excel表格，它使用一个滚动条来显示数据，这些数据随着滚动条的变化而变化，一些字段不显示所有数据。我想让它在有问题的行中显示数据时，根据需要自动重新调整大小。当数据在列表中向上或向下移动时，该行将自动调整大小，使其返回到较小的大小，并且根据滚动条的移动方式调整上方或下方的行，以适应单元格中较大的数据

我在有问题的工作表中写了这段代码，认为它可以工作，但它不

Option Explicit
Private Sub Workbook_Open()
Rows("2:12").EntireRow.AutoFit
Loop
End Sub

---

现在我想看到的是，这是一个警告，细胞不会在一个特定的高度下，也就是36。这只是一个愿望，但我希望看到它保持这样。。。因此它保持未成形状态，减去需要展开以显示更多数据的单元格。

首先，命名要应用自动拟合的工作簿和工作表。 例如

嗯，为什么要循环

---

要限制行高，请查看以下线程：

我不需要工作表名称或工作簿，因为该函数嵌入在工作表本身中。至于为什么要循环，因为我希望它能持续运行。另外，我知道如何做行高，问题是我希望行高是标准的，并且只增加需要的行。据我所知，情况完全不同。是的，事实上，我没有注意到你在工作表模块。你能把床单寄给我吗？既然我无聊，我就去看看。基姆。gysen@gmail.comHmm，您不是在工作表模块中工作，而是在打开的工作簿中工作，该工作簿包含整个工作簿。。。除非这是目的，否则最好还是定义图纸名称。我从来没有听说过没有do或计数器的循环……不，我的意思是只在工作表中工作，而不是在工作簿中工作，这可能就是它不工作的原因。

thisworkbook.sheets("Name").rows("2:12").entirerow.autofit