Excel 将单元格复制到具有可变行号的其他工作表

如何将一个单元格的内容复制到另一个具有可变行号的工作表中的单元格

我搜索了这个网站，找到了以下代码，但目标工作表中没有显示任何内容。 工作表“Koersen”将自动更新。 “Koersen”中的单元格A19应复制到“ASML”中的单元格A3，当“Koersen”中的单元格C7发生变化时，应将其复制到“ASML”中的A4，然后复制到A5、A6，依此类推

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x As Integer
    For x = 3 To 1500
        If Target.Address = "$C$7" Then
            Sheets("Koersen").Cells(19, 1).Copy
            Sheets("ASML").Cells(x, 1).Paste
        End If
    Next x
End Sub

你可能已经猜到了，我是VBA的新手

---

提前感谢。

试试下面的方法，尽管我看不清你想要实现什么

Private Sub Worksheet_Change(ByVal Target As Range) 'if something change in worksheet...
    Dim x As Integer
    Worksheets("ASML").Cells(3, 1) = Worksheets("Koersen").Cells(19, 1) 'make value of ASML A3 equal to Koersen A19
    If Target.Address = "$C$7" Then 'if what have changed is cell C7...
        For x = 3 To 1500
            Worksheets("ASML").Cells(x, 1) = Target.Value '...copy value of Koersen C7 to ASML column A, from row 3 to 1500
        Next x
    End If
End Sub

---

我相信你想做的就是复制Koersen！每当单元格

C7

更改时，A19移动到

ASML

中的新行。如果是这样，则以下代码应起作用：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim x As Long
    If Target.Address = "$C$7" Then
        With Sheets("ASML") ' use a With block to save typing
            x = .Cells(.Rows.Count, "A").End(xlUp).Row + 1    
            Sheets("Koersen").Cells(19, "A").Copy .Cells(x, "A")
        End With
    End If
End Sub

---

你需要使用变量。在这里了解他们：-正如你所看到的，比较YowE3K和我自己的答案，你的问题是不清楚的。请尽量更好地解释你的目标。