Question

所以我创建了一个复制和粘贴功能。我以前遇到过我遇到的错误。但是，我现在想要在更改原始日期时复制和粘贴值。所以，我原来的想法是粘贴像=(ws.Cells(i, j)这样的东西。并且有一个嵌套的for循环，值i保持与下面相同，j在6到16之间。但是我无法让它工作。

如果有一个特殊的粘贴功能或我不知道的东西会很棒。有没有办法获得复制和粘贴数据，但仍然依赖于原始数据（原始更改时更新）。

如果还有另一个问题解决了这个问题，那么我没有看到它，我很抱歉。

我的代码如下。任何帮助将不胜感激。

Private Sub CommandButton1_Click()

Dim rng As Range
Dim ws As Worksheet
Set ws = Worksheets("Goals")
a = Worksheets("Goals").Cells(Rows.Count, 7).End(xlUp).Row

For i = 2 To a

  If Worksheets("Goals").Cells(i, 20).Value = "Red" Then

  ws.Activate
  Set rng = ws.Range(ws.Cells(i, 6), ws.Cells(i, 16)) 'columns to be copied
  rng.Copy 
  Worksheets("Scorecard").Activate
  b = Worksheets("Scorecard").Cells(Rows.Count, 1).End(xlUp).Row
  Worksheets("Scorecard").Cells(b + 1, 2).Select
  ActiveSheet.Paste
  Worksheets("Goals").Activate

  End If

Next


Application.CutCopyMode = False
Worksheets("Forms").Activate
Worksheets("Forms").Cells(22, 10).Select 'going back to the Forms page

End Sub

Answer 1

试试这个

Worksheets("Goals").Range("I6:I16").Copy
Worksheets("Scorecard").Paste Link:=True

我希望你不介意在这个过程中换页。

由于

复制并粘贴数据并自动更新

1 个答案: