Realmente é mais fácil realizar esse tratamento através de Python. Mas caso não possua o Python instalado ou ainda não tenha tanto conhecimento, é possível utilizar o próprio VBA do Excel para lhe auxiliar nesta tarefa.
Tomando a premissa de que conheça o básico do VBA, vou partir para o código que criei para tentar lhe auxiliar. A seguir a sequência de funcionamento do código desenvolvido:
- Necessário selecionar a pasta e o arquivo XLSX de origem dos dados (caso nenhum arquivo seja selecionado será apresentada uma mensagem de erro);
- O código abrirá o arquivo "em background" lerá todos os itens na coluna "A" e gravará em variáveis internas do VBA;
- Necessário selecionar a pasta e o arquivo XLSX de destino dos dados (caso nenhum arquivo seja selecionado será apresentada uma mensagem de erro);
- O código abrirá o arquivo de forma visível e irá inserir todos os itens na coluna "J" e ao final finalizará a macro.
`Essa parte é responsável por pegar o caminho do arquivo selecionado:
Function funOpenFile()
Dim fDlg As FileDialog
Dim sArquivo As String
Set fDlg = Application.FileDialog(msoFileDialogOpen)
With fDlg
.AllowMultiSelect = False
.InitialView = msoFileDialogViewDetails
.Filters.Add "Excel", "*.xlsx", 1
.InitialFileName = "C:\"
End With
If fDlg.Show = -1 Then
sArquivo = fDlg.SelectedItems(1)
funOpenFile = sArquivo
Else
MsgBox "Nenhum arquivo foi selecionado", vbExclamation + vbOKOnly, "Leitura de arquivo"
End If
End Function
`Essa parte do código é responsável pela leitura das informações do arquivo origem e escrita no arquivo
Public Sub Openfile()
Dim sCaminho As String, sNome() As String
Dim sDados As arraylist, sDado As Variant
Dim oXLApp As New Excel.Application, wb As Object
Dim iNum As IntegerSet sDados = New arraylist
sCaminho = funOpenFile
If sCaminho = "" Then
Exit Sub
Else
iNum = 1
Set wb = oXLApp.Workbooks
oXLApp.Visible = False
wb.Open (sCaminho)
oXLApp.Sheets(1).Select
While oXLApp.Application.Cells(iNum, 1).Value <> ""
sDados.Add (oXLApp.Application.Cells(iNum, 1).Value)
iNum = iNum + 1
Wend
wb.Close
End If
sCaminho = funOpenFile
If sCaminho = "" Then
Exit Sub
Else
iNum = 1
Set wb = oXLApp.Workbooks
oXLApp.Visible = True
wb.Open (sCaminho)
oXLApp.Sheets(1).Select
For Each sDado In sDados
oXLApp.Application.Cells(iNum, 10).Value = sDado
iNum = iNum + 1
Next sDado
wb.Close
End If
End Sub
Espero que isso lhe ajude para customizar uma aplicação que atenda plenamente a sua necessidade.