Question

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

我正在尝试弄清楚如何在一个工作表中的特定单元格中取几个值。我们称之为：

Sheet 1中

Range("C5")

Range("C10")

Range("C15")

Range("C20")

并希望编写一个Sub，将这4个值放在Sheet2的下一个可用行中，并在第一列中添加时间戳。

Answer 1

使用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

Answer 2

尝试一下：

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

如何将数据从一个工作表中的列附加到另一个工作表中的底行

2 个答案: