复制粘贴下面的宏

Question

两行我是一个VBA初学者和为此，下面的查询可能是你很容易，但我不能让它

什么我想是这样的：

构建在一张纸上（现有的）和

副本

1. 输入与日期和信用评级一个宏并将其粘贴到一个预定表，并
2. 每次哟你在输入栏输入新数据并点击宏按钮，宏应该复制并粘贴到表中，但是在最后使用的单元/行下面有两行。
3. 有一个图表，用于读取数据粘贴到的范围数据，并自动将其范围调整为新粘贴的值。

我希望，我已经解释好我的问题了，以便您可以提供帮助。

Dim x As Integer 
Worksheets("Input").Range("D6:D7").Copy 
x = 2 
Do 
    x = x + 2 
    Worksheets("Chart").Range("B" & x).PasteSpecial Paste:=xlPasteValues,Transpose:=True, xlPasteValues 
Loop Until x = 56 
Application.CutCopyMode = False 
End Sub 

谢谢！

Answer 1

尝试下面的代码：

Option Explicit 

Sub CopyTowRowsbelow() 

Dim x As Long 

Worksheets("Input").Range("D6:D7").Copy 

With Worksheets("Chart") 
    x = .Cells(.Rows.Count, "B").End(xlUp).Row ' find last row in column B 
    .Range("B" & x + 2).PasteSpecial Paste:=xlPasteValues, Transpose:=True ' Paste the value 2 rows below the last cel with data 
End With 
Application.CutCopyMode = False 

End Sub 

Answer 2

我找到一份粘贴到通常是一个不好的做法，因为它使用的系统剪贴板，可以擦除数据，用户必须在剪贴板。相反，我尝试显式设置目标值。如果将代码粘贴到输入工作表的代码模块中，此代码应该可以工作。

Public Sub Worksheet_Change(ByVal Target As Range) 
'this built in subroutine in excel executes whenever something is changed on the worksheet 
'we'll use this subroutine to determine range "D6:D7" was part of the sheet that was changed 

'declare the range we want to detect if a change occurred, we'll just monitor range D7 
Dim rangeMonitorForChange As Range 
Set rangeMonitorForChange = Worksheets("Input").Range("D7") 

'if the range changed on the sheet and the range were monitoring overlap/intersect then we'll call the method to upadte the chart sheet 
    If Not Application.Intersect(Target, rangeMonitorForChange) Is Nothing Then 
     copyDown 
    End If 
End Sub 


Sub copyDown() 
'define where to "copy" from 
Dim rngSource As Range 
Set rngSource = Worksheets("Input").Range("D6:D7") 

'find the row we're going to "paste" to 
Dim destRow As Long 
destRow = Sheets("Chart").Range("B" & Sheets("Chart").Rows.Count).End(xlUp).Row + 2 

'define "paste" destination 
Dim rngDest As Range 
Set rngDest = Sheets("Chart").Range("B" & destRow & ":B" & destRow + 1) 

'"paste" the values in 
rngDest.Value = rngSource.Value 

End Sub