Excel 如何将特定数据插入列中的连续单元格

我在这里完全是个新手，试图用Excel完成我认为简单的任务

我需要做的是在第一个可用单元格中插入文本“Rakennus”，在接下来的两个单元格中插入时间和日期。我已经有一个宏可以将数据从工作表1复制到工作表2。该新数据需要以连续方式插入到第2页A列中

  Application.Sheets("Taul2").Select.LastRow .Range("A" & Rows.Count) = "Rakennus".End(x1up).Row + 1
  Application.Sheets("Taul2").Select.LastRow .Range("A" & Rows.Count) = Now.End(x1up).Row + 2
  Application.Sheets("Taul2").Select.LastRow .Range("A" & Rows.Count) = Date.End(x1up).Row + 3

我的技能非常有限，这是我收集和修改的，只是无法让它发挥作用

---

任何一种见解都值得赞赏

使用

.End（xlUp）

定位最后使用的行后，使用

.Offset（1，0）

向下移动1行以插入文本值。完成后，使用类似的技术定位该单元格，并将日期和时间分别定位到右侧的

.Offset（0,1）

，和

.Offset（0,2）

With Sheets("Taul2")
    .Cells(Rows.count, 1).End(xlUp).Offset(1, 0) = "Rakennus"
    .Cells(Rows.count, 1).End(xlUp).Offset(0, 1) = Date
    .Cells(Rows.count, 1).End(xlUp).Offset(0, 2) = Time
End With

如果这三个值是垂直方向的，则只需继续原始偏移即可

With Sheets("Taul2")
    .Cells(Rows.count, 1).End(xlUp).Offset(1, 0) = "Rakennus"
    .Cells(Rows.count, 1).End(xlUp).Offset(1, 0) = Date
    .Cells(Rows.count, 1).End(xlUp).Offset(1, 0) = Time
End With

在三个值的数组上使用

.Resize（3，1）

和

.Transpose（…）

可以在单个代码行中完成任务

With Sheets("Taul2")
    .Cells(Rows.count, 1).End(xlUp).Offset(1, 0).Resize(3, 1) = Application.Transpose(Array("Rakennus", Date, Time))
End With

---

这很有见地，谢谢！。现在它将信息添加到行中，而我希望它跟随列“A”向下。@Jesse-offset命令只是

。offset（，）

。如果要垂直堆叠这三个值，只需对它们中的每一个使用

.Offset（1，0）

。