Redimensionner toutes les colonnes et trouver la dernière ligne et la dernière colonne qui ont des données

Question

Je voudrais:

1. Assurez-vous que toutes les colonnes d'une feuille de calcul Excel sont suffisamment élargi pour adapter le texte chaque rangée de la colonne; et

2. Je voudrais trouver la dernière colonne et la dernière ligne qui ont des données dans cette feuille de calcul, c'est-à-dire la dernière ligne non vide et la dernière colonne non vide. Une cellule qui a une couleur d'arrière-plan mais pas de texte sera également considérée comme non vide.

Ainsi, par exemple, une feuille de calcul comme ceci:

ressemble à ceci:

Et la dernière cellule de données est signalé comme D10 parce qu'il est la dernière sale cellule même si elle n'a pas de texte.

Quelles méthodes/API VSTO me donneront ce qui précède?

Answer 1

Pour déterminer une utilisation plage utilisée Worksheet.UsedRange propriété: https://msdn.microsoft.com/en-us/vba/excel-vba/articles/worksheet-usedrange-property-excel?f=255&MSPPError=-2147217396

Pour les colonnes Autofit dans cette utilisation de la plage Range.AutoFit Méthode: https://msdn.microsoft.com/en-us/vba/excel-vba/articles/range-autofit-method-excel?f=255&MSPPError=-2147217396

UsedRange = ActiveWorkbook.Worksheets.Item("Sheet1").usedrange 
UsedRange.Columns.Autofit