Я не думаю, что вы можете сделать это с помощью раскрывающихся списков Проверка данных. Есть ли шанс конвертировать выпадающие списки в элементы управления ActiveX?
Даже следующий фрагмент кода не работает:
Sub Foo() Range("C4").Select 'Assuming this is the cell containing the dropdown list Application.SendKeys "%", 1 Range("C4:C10").CopyPicture Appearance:=xlScreen, Format:=xlPicture ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range("D16") End Foo
Это вызывает появление раскрывающегося списка, но методы CopyPicture копируют базовые ячейки, а не отображаемый раскрывающийся список.