excel vba编码将数据粘贴到预选范围内

Question

如果答案很明显，这里的新手如此推荐

我的电子表格有一个单元格列表，用于争论A1到A10，它以某种方式包含数据和格式。

我希望能够为每个单元格创建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