Excel 如何将一个工作表中某列的数据追加到另一个工作表的底行

我找不到任何符合我标准的内容。如果我错过了什么，我很抱歉

我试图找出如何在一个工作表中获取特定单元格中的多个值。我们称之为：

表1

Range("C5")

Range("C10")

Range("C15")

Range("C20")

并希望编写一个子集，将这4个值放置在Sheet2的下一个可用行中，第一列带有时间戳。

使用

end（xlup）

跟踪最后一行，例如：

dim lTargetRow as long

lTargetRow=sheets("Sheet2").cells(rows.count,2).end(xlup).row+1 'find first available row

sheets("Sheet2").cells(ltargetrow,2)=sheets("Sheet1").range("C5").value
sheets("Sheet2").cells(ltargetrow,1)=now() 'add time stamp

尝试一下：

Sub dural()
    Dim s1 As Worksheet, s2 As Worksheet
    Set s1 = Sheets("Sheet1")
    Set s2 = Sheets("Sheet2")
    n = s2.Cells(Rows.Count, 1).End(xlUp).Row + 1
    k = 2
    For i = 5 To 20 Step 5
        s1.Cells(i, "C").Copy s2.Cells(n, k)
        k = k + 1
    Next i
    s2.Cells(n, 1) = Now
End Sub

---

附加装置工作得很好！它添加了数据，但有一个错误#REF。如果范围（“C5”）是一个类似于引用的范围（“H2”）/Sheet3（“D2”），我该如何修复它？编辑代码以传输值，而不是标准复制/粘贴您的修复工作！非常感谢，谢谢！你的也很管用。我选择了一些不好的例子，因为它们并不是每次都被5分开。但这是一个好的举动。我仍然有#REF错误，因为单元格（I，“C”）已经是引用了。。。