VBA: como juntar duas variáveis de tabelas
Concatene duas variáveis de tabelas a uma dimensão em uma única variável de matriz:
Option Explicit
Sub Juntar()
Dim Aray_1() As Variant, Aray_2() As Variant
Dim Result() As Variant
Aray_1 = Array(1, 2, 3, 4, 5, #11/24/2017#, "azerty")
Aray_2 = Array("A", "B", "C", 18, "End")
Result = Concat_Array(Aray_1, Aray_2)
Debug.Print "Avec l'Array 1 : " & Join(Aray_1, ", ")
Debug.Print "Et l'Array 2 : " & Join(Aray_2, ", ")
Debug.Print "Le résultat est l'Array 3 : " & Join(Result, ", ")
End Sub
Function Concat_Array(A1() As Variant, A2() As Variant) As Variant()
Dim TmpA1() As Variant, N As Long, i As Long
N = UBound(A1) + 1
TmpA1 = A1
ReDim Preserve TmpA1(N + UBound(A2))
For i = N To UBound(TmpA1)
TmpA1(i) = A2(i - N)
Next
Concat_Array = TmpA1
End Function
Resultado:
Com o Array 1 : 1, 2, 3, 4, 5, 24/11/2017, azerty;
E o Array 2 : A, B, C, 18, End;
O resultado é Array 3 : 1, 2, 3, 4, 5, 24/11/2017, azerty, A, B, C, 18, End.
Foto: © Microsoft.
Veja também
- VBA: como juntar duas variáveis de tabelas
- Call vba - Dicas -Visual Basic
- Cores vba - Dicas -Visual Basic
- Vba pegar dados de outra planilha fechada - Dicas -Excel
- Inputbox vba - Dicas -Visual Basic
- Vba like - Dicas -Visual Basic
Este documento, intitulado 'VBA: como juntar duas variáveis de tabelas', está disponível sob a licença Creative Commons. Você pode copiar e/ou modificar o conteúdo desta página com base nas condições estipuladas pela licença. Não se esqueça de creditar o CCM (br.ccm.net) ao utilizar este artigo.
Assine nossa newsletter!
