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
1 回答
你只需要一个宏 .
输入框会询问您要复制的单元格 .
单元格将粘贴到当前选择的任何范围 .