VBA копировать ячейки, которые соответствуют критериям, на другой лист

Я новичок в VBA. Я хочу скопировать серию ячеек с Листа1 на Лист2, если ячейки на Листе 2 соответствуют значению, указанному в первом столбце. Например, я хотел бы начать с SHEET1, а затем получить данные, похожие на SHEET2 ниже:

SHEET1
A2=Adam B2=95 C2=92 D2=97 E2=67 F2 blank G2 blank H2 blank
A3=Cindy B3 blank C4 blank D4 blank E4=61 F4=94 G4=95 H4=95

SHEET2
A2=Adam B2=95 C2=92 D2=97 E2=67
A3=Cindy B3=94 C4=95 D4=95 E4=61

В этом примере я хочу сначала скопировать информацию из Листа 1 B2:D2 в Лист 2 B2:2. Затем я хотел бы скопировать информацию из Листа 1 F3:H3 и заполнить пробелы в Листе 2 B3:D3. Вся информация в столбце E должна оставаться там, где она есть.

Любая помощь приветствуется!!

Редактировать Моя (Тони Даллимор) попытка преобразовать описания Sheet1 и Sheet2 в нечто более визуальное:

Sheet1
   |  A   |  B   |  C   |  D   |  E   |  F   |  G   |  H   |
 2 |Adam  |    95|    92|    97|    67|      |      |      |
 3 |Cindy |      |      |      |      |      |      |      |
 4 |      |      |      |      |    61|    94|    95|    95|

Sheet2
   |  A   |  B   |  C   |  D   |  E   |  F   |  G   |  H   |
 2 |Adam  |    95|    92|    97|    67|      |      |      |
 3 |Cindy |    94|      |      |      |      |      |      |
 4 |      |      |    95|    95|    61|      |      |      |

1 ответ

Если я правильно понимаю ваш вопрос, вам, вероятно, не нужно решение VBA. Я бы просто пошел к столбцам I:K и вставил формулу, чтобы получить значение из столбцов B:D или значение из столбцов F:H, например, так: (пример для ячейки I2)

=IF(B2="",F2,B2)

Перетащите эту формулу на три столбца через столько строк, сколько вам нужно, и теперь в ячейках I:K есть все необходимые значения. Затем вы можете скопировать >>Paste Special - Paste Values, чтобы получить все в столбцы B:D.

Другие вопросы по тегам