Copiar y pegar usando macros en excel 2007

-2

Estoy tratando de copiar desde una fila de texto en la columna "hoja de búsqueda" y pegar en la fila dos comenzando en CCX2. Por ejemplo, necesito copiar 2856FRGM y pegar en 12 celdas (CCX2 - CDI2), luego seguir 2856GRPM y pegar en las siguientes 12 celdas y así sucesivamente.

Tengo aproximadamente 3600 números de pieza únicos para hacer esto.

Hasta ahora, esta es la Macro que tengo, pero está pegando el primer número de parte completo del excel en lugar de 12 filas por número de parte. Solo comienza un nuevo número de pieza en la fila de abajo.

ingrese la descripción de la imagen aquí

Cualquier ayuda sería muy apreciada, solo comencé con Macros hoy, así que realmente no sé lo que estoy haciendo lol

— exceluser2k17
fuente

¿Desea copiar, 2856FRGMpor ejemplo, 12 veces en filas o columnas? (CCX2-CDI2 son columnas)

— yass

Quiero copiar 2856FRGM de D10 y pegarlo horizontalmente 12 veces desde CCX2 a CDI2.

— exceluser2k17

Si tiene 3600 piezas únicas * 12, ¿sabe cuántas columnas?

— yass

3510 números de pieza únicos que quiero pegar cada * 12 horizontalmente. Cada número de parte es su propia columna, así que después de pegar habría 42120 columnas

— exceluser2k17

En lugar de una captura de pantalla, ¿puede publicar su código y formatear con {}?

— BruceWayne

Sub pegar ()

("H4: H5"). Seleccione Selection.Copy Selection.PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks _: = False, Transpose: = False Range ("H8"). Seleccionar

Application.CutCopyMode = False

Selection.Copy Selection.PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks: = False, Transpose: = False Range ("H10"). Seleccionar

Application.CutCopyMode = False

Selection.Copy Selection.PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks _: = False, Transpose: = False Range ("H13: H16"). Seleccionar

Application.CutCopyMode = False Selection.Copy Selection.PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks: = False, Transpose: = False

End Sub

NÓTESE BIEN. Su código de muestra ajusta la dirección de su celular según lo necesite.

— Rajesh S
fuente