Excel Curitiba

Olá Este código incrementa um laço for e coloca dentro dele a funcionalidade de transformar o conteúdo de cada célula em maiúsculo. Não podemos esquecer que quando queremos comparar dois valores é muito importante que os valores tenham o mesmo formato, não posso comparar minúscula com maiúscula ou vice-versa. Portanto segue um código bem interessante. Sub maiuscula() '  Dim a, b As Integer  Dim c As String  For a = 1 To 10 '10 é o número de colunas que você quer percorrer    For b = 1 To 2000 '2000 é o numero de linhas que você quer percorrer     c = Cells(a, b).Value ' c=variável que armazena o valor da célula     'b e c são respectivamente o endereço da célula, b=coluna e c=linha      If c <> "" Then 'se valor de a for diferente de vazio        c = UCase(c) ' o ucase converte em maiúscula     End If    Next  Next End Sub