2013-04-03 33 views
0

新手在这里这么appols预如果答案是显而易见的Excel VBA中的编码数据粘贴到所选范围

我的电子表格有小区的名单,为arguements缘故A1到A10,包含在数据和格式某种方式。

我希望能够创建10个宏的 - 1针对每个小区的,让我来粘贴数据和成任何预先选定的单元格或区域这个特定的细胞的格式是:

对于arguements着想:我选择了单元格区域b3:b10,我希望能够运行一个宏,它将剪切并粘贴单元格a1的内容到这个范围(b3:b10)中。

干杯

Wilmsta

+1

您是否尝试过使用宏录制器? – ApplePie

+0

我有但我不知道如何重新选择活动单元格(或范围),一旦我从其他单元格复制(如果这是有道理的!) – user2241138

回答

0

你只需要为这一个宏。

输入框会询问您要复制哪个单元格。

该单元格将被粘贴到当前选择的范围内。

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 
+0

非常感谢,非常感谢您的帮助。是否有可能有一个下拉范围,他们可以从所有选择或这是要求太多! – user2241138

+0

这是可能的,但您必须使用您已经使用下拉式验证列表设置的单元格上的Workbook_Change事件。与此同时,如果这解决了您的直接问题,请考虑采取upvoting或“接受”此答案。 –

+0

好的欢呼大卫 – user2241138