@amorim123

Monte um exemplo/planilha no padrão que vc possui as informações e um rascunho de como  seria essa saida de dados. Vai facilitar a análise.

@raygsson 

Segue exemplo: A planilha "TaxApply - V 1.2 - Planilhando" contém  código a ser executado e a planilha "01948037000109-test" os dados a serem importados pela planilha anterior.

https://1drv.ms/u/s!Aj-bsGYbi-JE1xIyujimtPdlF05R?e=oxGVn6

@amorim123 

Vi suas planilhas, a do código não precisava.

Na outra tem a sua base de dados, uma tabela com 9 colunas e diversas linhas.

Ainda não entendi o que você precisa fazer com esse dicionário, a finalidade.

Faltou aquele exemplo da saida/resultado esperado.

@raygsson Okay meu brother, me resume apenas ao problema, mas realmente é necessário contextualizar para entender o objetivo final, seguinte:

No intervalo da planilha que é importada "01948037000109-test" não posso ter campos vazios, então p/ validar isso pensei em um Array que descesse verticalmente e na sequência horizontalmente, pelos próximos 7 campos a partir da segunda coluna que corresponde aos códigos de produtos com os quais trabalho e para os quais não haverá valores iguais; independente de haver campos vazios ou não eu preciso que seja indexado em um dicionário cada registro (chave + 7 campos seguintes), porém os registros que contiverem campos vazios serão apresentados em ListBox para que com DubleClick o usuário possa avaliar novamente os dados e inserir as informações (se não preenchidas processo abortado, pois não pode haver dados vazios); aqui é onde entra a necessidade do Dictionary, pois somente com chaves indexadas poderei sobrescrever os dados sem escrever na planilha.

Sobre o exemplo de saída hahah.. ainda não sei como irei fazer, pois envolve obter diretamente os campos do dicionário, acredito que seja o processo reverso da inserção e reinserção pois o listbox vai retornar pro dicionário, com a resolução desse primeiro problema conseguirei entender (acredito), como funciona de fato as operações possíveis do dicionário. 

@amorim123 

Agora entendi rs

Fiz um exemplo que preenche o dicionário da forma que precisa, uma chave que será o código do produto e demais chaves para acessar os atributos.

Desta forma:

dict("000802")("DESCR_ITEM")
dict("000802")("TIPO_ITEM")
dict("000802")("CFOP")
etc....

 E aqui esta o script:

Sub exemplo()

Dim base As Variant
Dim dict As New Scripting.Dictionary
Dim lin As Long, col As Integer

base = Planilha1.Range("B1:I" & Planilha1.Range("B1").End(xlDown).Row)

For lin = 2 To UBound(base)

      For col = 2 To 8
            Dim dict_temp As New Scripting.Dictionary
            dict_temp.Add base(1, col), base(lin, col)
      Next

      dict.Add base(lin, 1), dict_temp
      Set dict_temp = Nothing

Next

End Sub

Att,

Raygsson

@raygsson A simplicidade do teu código me mostrou o caminho que deveria seguir. Muito Obrigado, brother!!

Porém apenas pra registrar o script não foi totalmente efetivo, pois o método .ADD apresenta erro de tecla (ou chaves) já existente, então usei outro método que faz a mesma coisa, ".item()=" , tive só que alterar também a linha de código abaixo, pois isso fazia o loop ficar percorrendo apenas a primeira linha

dict_temp.Add base(1, col), base(lin, col)

Então ficou da seguinte forma ():

With Worksheets(1)

    lngUltCell = .Cells(.Rows.Count, 1).End(xlUp).Row
    
    arrRng = .Range(.Cells(2, 2), .Cells(lngUltCell, 9))
    
        For i = 1 To UBound(arrRng)
             
             For l = 1 To 8
             
                    Select Case cont
                        Case 1
                            CodProd = arrRng(i, 1)
                            DictSht(CodProd) = Array(0, 0, 0, 0, 0, 0, 0)
                        Case 2
                            DictSht(CodProd)(cont - 1) = arrRng(i, 2)
                        Case 3
                            DictSht(CodProd)(cont - 1) = arrRng(i, 3)
                        Case 4
                            DictSht(CodProd)(cont - 1) = arrRng(i, 4)
                        Case 5
                            DictSht(CodProd)(cont - 1) = arrRng(i, 5)
                        Case 6
                            DictSht(CodProd)(cont - 1) = arrRng(i, 6)
                        Case 7
                            DictSht(CodProd)(cont - 1) = arrRng(i, 7)
                        Case 8
                            DictSht(CodProd)(cont - 1) = arrRng(i, 8)
                            cont = 1
                            CodProd = ""
                            If bln Then Call FFrm_ProdVazio(CodProd)
                            bln = False
                            Exit For
                    End Select
    
                        If IsEmpty(arrRng(i, cont)) Or arrRng(i, cont) = "" Then bln = True
                        cont = cont + 1
             Next
        Next

End With