Juntar Matriz no VBA.

Question

Fala ai galerinha viciada no Excel.

Eu tenho a seguinte situa&ccedil;&atilde;o tenho duas base de dados onde vc pode reproduzir com o exemplo a seguir

Dim MTZA As Variant
Dim MTZB As Variant
Dim MTZC As Variant
Dim W As Worksheet

Set W = Planilha1

MTZA = W.Range(A1:C1)
MTZB = W.Range(H1:J1)
MTZC = MTZA &amp; MTZB 'Como fazer isto?

Em resumo eu quero juntar os dados.

Answer

Facilite a sua vida capturando uma s&oacute; cole&ccedil;&atilde;o.
- Experimenta assim:
[code=vb]Sub UnirDuasRanges()
    Dim duasRanges As Range, aux As Range
    Dim result() As Variant
    Dim W As Worksheet
    Dim i As Integer

Set W = Sheets(Planilha1)

Set duasRanges = W.Range(A1:C1,H1:J1)

For Each aux In duasRanges
'       remova linhas do If se quiser adicionar vazias tambem
         If Len(aux.Value) &gt; 0 Then
            i = i + 1
            ReDim Preserve result(1 To i)
            result(i) = aux.Value
        End If
    Next aux

'=: bote aqui o que fazer com o result

End Sub[/code]

Answer

Obrigado pela dica mas na hora de descarregar na planilha deu erro.

Usei esta linha de codigo:

W.Range(B10).Resize(UBound(result, 1), UBound(result, 2)).Value = result

Ferramentas

Mover Tópico