Macro a transpor com base no número da coluna próxima [fechado]

Question

Esta captura de tela contém detalhes sobre o que é necessário.

^{(Cliquenaimagemparaampliar)}

EuprecisodeumamacroquepossaexecutaroseguintenoExcel:

• UseosnúmerosdacolunaF(Contagemdelinhas)paracolocarosvaloresdacolunaE(PartText)nacolunaG,H,I,J,KeLcampo"Description" ". (Por exemplo: E2 a ser colocado em G2 (Descrição 1), E3 para ser colocado em H2 (Descrição 2), E4 para ser colocado em I2 (Descrição 3) e E5 para ser colocado em J2 (Descrição 4). [ver captura de tela]

NOTA: 1. Eu só queria usar, a coluna F “Número da Linha”, que tem o valor “1”, (a coluna G ao lado do valor 1) é onde a escrita da descrição deve começar em todas as linhas para todos os números de peça exclusivos como (210014, 232260). Por exemplo (a descrição escrita começará nas linhas G2, G6 e G10, respectivamente).

    

Answer 1

Você pode fazer isso com fórmulas nas colunas g, H, I, J, K, L etc. Você pode ser capaz de simplificar isso para as suas necessidades, uma vez que você veja como isso está funcionando. Você pode ter apenas as fórmulas nas linhas em que o LineCount é 1 ou usar as fórmulas como essa em cada um desses endereços de célula e arrastar para baixo

G2 = SE (F2 < > 1, "", E2)

H2 = IF (F2 < > 1, "", IF (INDIRETO ("E" & ROW () + 1) = 0, "", INDIRETO ("E" & ; LINHA () + 1)))

I2 = IF (F2 < > 1, "", IF (INDIRETO ("E" & ROW () + 2) = 0, "", INDIRETO ("E" & ; LINHA () + 2)))

J2 = IF (F2 > 1, "", IF (INDIRETO ("E" & ROW () + 3) = 0, "", INDIRETO ("E" & ; LINHA () + 3)))

K2 = IF (F2 > 1, "", IF (INDIRETO ("E" & ROW () + 4) = 0, "", INDIRETO ("E" & ; LINHA () + 4)))

L2 = IF (F2 < > 1, "", IF (INDIRETO ("E" & ROW () + 5) = 0, "", INDIRETO ("E" & ; LINHA () + 5)))

Você pode expandir isso dependendo da quantidade de linhas esperadas que você precisa com bastante facilidade e esta é uma solução rápida que pode ser escrita ainda melhor se você experimentar

Se você precisa de uma macro, você pode implementar as mesmas ideias