如何通过Excel VBA增加列的文本区域_Excel_Vba

如何通过Excel VBA增加列的文本区域

excel vba

如何通过Excel VBA增加列的文本区域,excel,vba,Excel,Vba,我正在通过VBA从表中检索数据。select查询正确地给出了输出。我选择的其中一列具有多行文字说明。因此，当我获取行时，我想根据得到的结果动态增加电子表格列的textaread。如何做到这一点例如，您可以对包含查询结果的列使用AutoFit方法 Columns("A:G").EntireColumn.AutoFit ' hardcoded ... works but isn't nice 如果为查询结果定义了范围，请使用以下代码片段： Dim QRslt As Range, QCol As R

我正在通过VBA从表中检索数据。select查询正确地给出了输出。我选择的其中一列具有多行文字说明。因此，当我获取行时，我想根据得到的结果动态增加电子表格列的textaread。如何做到这一点

例如，您可以对包含查询结果的列使用AutoFit方法

Columns("A:G").EntireColumn.AutoFit ' hardcoded ... works but isn't nice

如果为查询结果定义了范围，请使用以下代码片段：

Dim QRslt As Range, QCol As Range

    '....
    For Each QCol In QRslt.Columns
        QCol.AutoFit
    Next
    '....

如果要将列宽限制为某个最大值，可以将单元格的.WrapText属性设置为=True

希望有帮助

祝你好运-MikeD

Wraptext是我所需要的一切