时间戳

首页 > 解决方案 > 如何将数据粘贴到 VBA 的特定行中？

excel - 如何将数据粘贴到 VBA 的特定行中？

问题描述

我是使用 VBA 的新手，我正在创建一个简单的项目来增强我在 VBA 编程方面的知识。

现在我的 excel 中有 2 张工作表，Sample1当然Sample2是Sample1我的母版页，现在我想获取特定的列数据Sample2并将其粘贴到Sample1. 我已经做到了这一点。现在我的问题是我想将它粘贴到特定行，Sample1因为当我复制数据Sample2并粘贴到Sample1数据时我的问题将显示在底部。

这是我的代码，如您所见，我希望我的项目是动态的。

Dim lastrow As Long, erow As Long

lastrow = Worksheets("Sample2").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastrow
    Worksheets("Sample2").Cells(i, 5).Copy
    erow = Worksheets("Sample1").Cells(Rows.Count, 1).End(xlUp).Row
    Worksheets("Sample2").Paste Destination:=Worksheets("Sample1").Cells(erow + 1, 1)
    Worksheets("Sample2").Cells(i, 7).Copy
    Worksheets("Sample2").Paste Destination:=Worksheets("Sample1").Cells(erow + 1, 2)
Next i

我想要的是当我从其中复制数据Sample2时Sample1会将其粘贴到特定列，例如。A5.

标签： excelvba

解决方案

您的 lastrow 列应该是 5 而不是 1： lastrow = Worksheets("Sample2").Cells(Rows.Count, 5).End(xlUp)

推荐阅读