Cómo colocar la segunda columna con el mismo contenido de la primera columna en EXCEL en la misma fila, como se muestra en la figura

Respuesta: Se puede programar según la imagen de arriba.

Presione la combinación de teclas ALT F11 para abrir la ventana de VB, ejecute "Insertar" - "Módulo", copie el siguiente código en ella y cuando la hoja de trabajo anterior sea la hoja de trabajo activa, presione F5 para ejecutar la programa y obtendrás el resultado. Sub?demo()

¿Dim?D?As?Object，?Cell?As?Range

Establecer?Cell?=?Range("A1")

Establecer?D?=?CreateObject("scripting.dictionary")

Hacer?Until?IsEmpty(Cell)

Si?Not?D.exists(Cell.Value) ?Entonces

D(Cell.Value)?=?Cell.Offset(0,?1).Value

Else

D(Cell.Value) ?=?D(Cell.Value)?amp;?", "?amp;?Cell.Offset(0,?1).Value

¿Fin?Si

¿Establecer? Cell?=?Cell.Offset(1,?0)

Bucle

Rango("C1").Resize(D.Count,?1)?=?Application.Transpose (Filtro(D.keys,?""))

Rango("D1").Resize(D.Count,?1)?=?Application.Transpose(Filter(D.items,?" "))

¿Fin?Sub