Макрос для транспонирования на основе номера соседнего столбца

Question

Этот скриншот имеет подробную информацию о том, что необходимо.

^{(Нажмите на изображение, чтобы увеличить)}

Мне нужен макрос, который может выполнять следующее в Excel:

• Используйте номера столбца F (Количество строк), чтобы поместить в значения из столбца E (Текст детали) столбец G, H, I, J, K и L «Описание» поля ». (Например: E2 для размещения в G2 (описание 1), E3 для размещения в H2 (описание 2), E4 для размещения в I2 (описание 3) и E5 для размещения в J2 (описание 4). [См. Скриншот]

ПРИМЕЧАНИЕ: 1. Я хотел только использовать столбец F "Номер строки", который имеет значение "1" (столбец G рядом со значением 1), где описание должно начинаться для всех строк плавно для всех уникальных номеров деталей, например (210014, 232260). Например (запись описания начнется со строк G2, G6 и G10 соответственно).

Answer 1

Вы можете сделать это с помощью формул в столбцах g, H, I, J, K, L и т.д. Вы можете упростить это для своих нужд, как только увидите, как это работает. Вы можете иметь только формулы в строках, где LineCount равен 1, или использовать такие формулы, как эта, в каждом из этих адресов ячеек и перетаскивать их вниз.

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

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

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

J2 = IF(F2 <> 1, "", IF(INDIRECT("E" & ROW()+3)= 0, "", INDIRECT("E" & ROW()+3)))

K2 = IF(F2 <> 1, "", IF(INDIRECT("E" & ROW()+4)= 0, "", INDIRECT("E" & ROW()+4)))

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

Вы можете расширить это в зависимости от количества ожидаемых строк, которые вам нужны, и это быстрое решение, которое может быть написано даже лучше, если вы экспериментируете

Если вам абсолютно необходим макрос, вы можете реализовать в нем те же идеи