Como o Excel pode pegar duas células separadas com dados separados por vírgula e combiná-las?

0

Eu procurei por toda parte uma resposta para isso e parece estar preso rapidamente.

Eu tenho algo parecido com isto:

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 emparelhá-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 está digitado, pois são datas de transação do cliente e B2 muda o tempo todo, conforme o valor da transação desses clientes. Alguém tem uma idéia de como eu posso combiná-los dessa maneira da maneira mais simples possível?

Depois que eu tiver emparelhado dessa maneira (ou seja, 01/01/2014 10.00, 01/02/2014 11.00 etc.), preciso que a célula resultante seja facilmente retirada do Excel e inserida em um modelo de email (tudo isso é já projetado e funcionando, basta ter a funcionalidade para fazer o emparelhamento.

Agradeço a quem tiver uma idéia de como fazer isso !!!

Daryl Ball
fonte
Uma solução VBA seria suficiente ou você está tentando fazer isso com fórmulas nativas?
Petr Fedorov 23/10
de preferência nativo, mas o VBA pode ser usado, pois a pasta de trabalho já possui várias macros do vba.
Daryl Bola

Respostas:

1

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

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

Agora eles estão emparelhados. Você os quer juntos concatenatenovamente , use 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
Raystafarian
fonte
aahh isso seria porque os usuários disso não sou só eu. todos são funcionários da central de atendimento e não têm idéia de como fazer essas coisas. precisa de alguma função para fazê-lo automaticamente e enviar a resposta como no exemplo de B3 acima.
Daryl Bola
@DarylBall, se você quiser que seja feito automaticamente, diria que precisa de uma macro, o que também será um problema para eles. O número de datas e horas é sempre o mesmo?
Raystafarian
não neste caso, depende de quantas transações alguém está apresentando como problemas; portanto, ele muda sempre que é usado. Macro e VBA são uma opção, pois ele já possui muitas macros e VBA, mas parece uma coisa tão simples em minha mente, mas não consigo encontrar uma maneira de fazê-lo.
Daryl Bola
O @DarylBall postou uma macro que funcionará. Você pode transformá-lo em activesheet.change, se desejar.
Raystafarian
Na verdade, você não precisa definir b3; pode passar o strcombo para a sua função de email como argumento.
Raystafarian