Saberexcel - o site das macros
Essa macro do Aplicativo Microsoft Excel VBA, insere um ajuste de medida em todas as colunas(A) do workbook medida 17.43
insere também um alinhamento de textos na coluna(A)
Range.Método AutoFit
Altera a largura das colunas do intervalo ou a altura das linhas do intervalo para obter o melhor ajuste.
Sub Ajusta_ColA_e_Texto_Wkb()
For i = 1 To Worksheets.Count
Worksheets(i).Activate
ActiveSheet.Columns(”A”).ColumnWidth = 17.43
ActiveSheet.Columns(”A”).VerticalAlignment = xlVAlignTop
ActiveSheet.Columns(”A”).HorizontalAlignment = xlHAlignRight
Next
End Sub
'uma linha de comando
xSheet.Columns(”A”).Cells.HorizontalAlignment = xlHAlignRight
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel