вставить значения только в пустую ячейку

Question

У меня есть столбец с конкретными именами, и одна из ячеек в столбце пуста. Я хочу скопировать значение из одной выбранной ячейки и вставить его в эту пустую ячейку.

Worksheets("project Allocation").Range("B8").Copy

Worksheets("Project Allocation").Range("****").PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = False

Я скопировалзначение из ячейки B8 и хотите вставить значения в диапазон ячейки (R13: R200), который является пустым.Я не могу определить этот диапазон вставки.

Answer 1

Это должно помочь:

Worksheets("project Allocation").Range("B8").Copy

Worksheets("Project Allocation").Range("R13:R200").SpecialCells(xlCellTypeBlanks).PasteSpecial xlPasteValues

Application.CutCopyMode = False

Вставит значение в B8 во все пустые ячейки в диапазоне R13:R200.В вашем случае у вас есть только одна пустая ячейка, поэтому она получит значение.