Faça uma subrotina que leia um vetor de qualquer tamanho de um arquivo de texto. Em seguida, imprima esse vetor no Excel na primeira planilha, impr...

Segue um exemplo de subrotina em VBA que lê um vetor de um arquivo de texto e imprime nas três planilhas do Excel, conforme solicitado: ``` Sub imprimirVetor() Dim vetor() As Integer Dim i As Integer Dim linha As Integer 'Abrir o arquivo de texto Open "C:\caminho\para\o\arquivo.txt" For Input As #1 'Ler o tamanho do vetor Input #1, tamanho 'Redimensionar o vetor ReDim vetor(tamanho - 1) 'Ler os elementos do vetor For i = 0 To tamanho - 1 Input #1, vetor(i) Next i 'Fechar o arquivo de texto Close #1 'Imprimir o vetor na primeira planilha For i = 0 To tamanho - 1 Worksheets(1).Cells(i + 1, 1) = vetor(i) Next i 'Imprimir os elementos pares na segunda planilha linha = 1 For i = 0 To tamanho - 1 If vetor(i) Mod 2 = 0 Then Worksheets(2).Cells(linha, 1) = vetor(i) linha = linha + 1 End If Next i 'Imprimir os elementos ímpares na terceira planilha linha = 1 For i = 0 To tamanho - 1 If vetor(i) Mod 2 <> 0 Then Worksheets(3).Cells(linha, 1) = vetor(i) linha = linha + 1 End If Next i End Sub ``` Lembre-se de ajustar o caminho do arquivo de texto e o número das planilhas de acordo com sua necessidade.