excel - excel vba编码将数据粘贴到预先选择的范围内

Question

如果答案很明显，这里的新手会很高兴

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

我希望能够为每个单元格创建 10 个宏 - 1 个，这将允许我将此特定单元格的数据和格式粘贴到任何预先选择的单元格或范围中：

为了争论：我选择单元格范围b3：b10，我希望能够运行一个宏，它将单元格a1的内容剪切并粘贴到这个范围（b3：b10）中。

干杯

威尔姆斯塔

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