Como o excel pode ter duas células separadas com dados separados por vírgula e emparelhá-las?

Question

Procurei uma resposta para isso e pareço estar preso rapidamente.

Eu tenho algo assim:

Cell B1:    01/01/2014,01/02/2014, 01/03/2014, 01/04/2014, 01/05/2014, 01/06/2014, 01/07/2014, 01/08/2014, 01/09/2014, 01/10/2014

Cell B2:    10.00,11.00,12.00,13.00,14.00,15.00,16.00,17.00,18.00,19.00

agora eu preciso de algo para pegar esses valores e juntá-los instantaneamente assim ...

Cell B3: 01/01/2014 10.00, 01/02/2014 11.00, 01/03/2014 12.00...etc. 

Agora, as datas na célula B1 mudam dependendo do que é digitado, como são as datas de transação do cliente, e B2 muda o tempo todo como os valores das transações desses clientes. Alguém tem uma idéia de como eu posso combiná-los da maneira mais simples possível?

Uma vez que o emparelhei desse jeito (ou seja, 01/01/2014 10,00, 01/02/2014 11,00 etc.), eu preciso que a célula resultante seja facilmente retirada do Excel e colocada em um modelo de email (todos de que já está projetado e funcionando, só precisa da funcionalidade para fazer o emparelhamento.

Agradeço a qualquer um que tenha uma ideia de como fazer isso !!!

    

Answer 1

Por que não dividir os dados? Selecione a coluna B e vá para a guia de dados - texto para colunas - delimitado - vírgula

Agora, em B3, coloque =Concatenate(B1," ",B2) e arraste-o.

Agora eles estão emparelhados. Você quer que eles voltem juntos, use concatenate novamente.

macro

Sub test()
Dim arrdate As Variant
Dim arrtime As Variant
Dim strcombo As String

arrdate = Split(Range("B1"), ",")
arrtime = Split(Range("B2"), ",")
strcombo = arrdate(0) & " " & arrtime(0) & ", "

For i = 1 To UBound(arrdate)
    strcombo = strcombo & arrdate(i) & " " & arrtime(i) & ", "
Next i
Range("b3") = strcombo
End Sub