Excel VBA кодирования для вставки данных в предварительно выбранном диапазоне

Question

Новичок здесь так appols, если ответ очевиден

Моя таблица содержит список ячеек, для сакэ заданы параметры А1-А10, который содержит данные и форматирование в определенным образом.

Я хочу, чтобы иметь возможность создать 10 макросов - 1 для каждой ячейки, что позволит мне вставить данные и форматирование этой конкретной ячейки в любую предварительно выбранную ячейку или диапазон составляет:

Ради заданы параметры : Я выбираю диапазон ячеек b3: b10, я хочу иметь возможность запускать макрос, который вырезает и вставляет затем содержимое ячейки a1 в этот диапазон (b3: b10).

Приветствия

Wilmsta

Answer 1

Вам нужно только один макрос для этого.

В поле ввода задается вопрос о том, какую ячейку вы хотите скопировать.

Клетка будет вставлена ​​в любой диапазон текущего выбора.

Sub CopyCellToRange() 
Dim clAddress As String 
Dim cl As Range 
Dim rng As Range 

Set rng = Range(Selection.Address) 
clAddress = InputBox("Enter the address of the cell you want to copy", "Input Range", "A1") 
Set cl = Range(clAddress) 
cl.Copy 
ActiveSheet.Paste 
End Sub