时间戳

首页 > 解决方案 > VBA 适用于第 2-15 页，但不适用于第 1 页

excel - VBA 适用于第 2-15 页，但不适用于第 1 页

问题描述

我将以下代码链接到 sheet1 上的按钮，它旨在复制 Sheet3 的内容，从第 3 行到数据末尾。如果我在我的活动工作表位于工作簿中的任何其他位置时手动运行代码，它会正确运行并复制和粘贴大约 1200 行，但是如果我从 sheet1 上的按钮或在 Sheet1 是我的活动工作表时手动运行它，它只会复制和粘贴 30 行。任何线索为什么？

Dim LastRow As Long
LastRow = Range("A" & Rows.Count).End(xlUp).Row
Sheets("Sheet3").Range("A3:F3" & LastRow).Copy
Sheets("Sheet15").Range("I2").PasteSpecial Paste:=xlPasteValues

标签： excelvba

解决方案

问题在这里

LastRow = Range("A" & Rows.Count).End(xlUp).Row

宏获取活动工作表的范围。您需要显示宏，您的意思是哪个范围，例如

LastRow = Worksheets("Sheet3").Range("A" & Rows.Count).End(xlUp).Row

推荐阅读