VBA宏找不到ActiveCell的最后一个使用的单元格-英雄云拓展知识分享

匿名投稿 183 2024-01-22

我想经过查找最后一个不是空的单元格，将一些（SRC）工作簿的粘贴值从一个（SRC）的工作簿中复制到我的（DST）工作簿。

就我而言，副本糊剂工作正常，直到SRC工作簿没有输入为止。

我的宏的结果看起来像：

Header - |email   |Name  |origin
1.row  - |email3  |Name2 |CH3
2.row  - |email2  |empty |ch2

我期望的是：

Header - email  |Name    |origin1.row  - email3 |x       |CH3
2.row  - email2 |Name2   |ch2

我的代码块：

Workbooks.Open (Filepath & MyFile)Range("A2").Copy
ActiveWorkbook.Close savechanges:=False
erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ActiveSheet.Paste Destination:=Worksheets("AP217").Range(Cells(erow, 1), Cells(erow, 1))
If ActiveCell.Value = "" Then
ActiveCell.Value = "x"
End If

如果有人可以建议，那就太好了。

干杯

看答案

我只会处理毛病，类似的事情：

erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).RowOn Error Resume Next ' ADD THIS LINE
ActiveSheet.Paste Destination:=Worksheets("AP217").Range(Cells(erow, 1), Cells(erow, 1))
On Error GoTo 0 ' ADD THIS LINE -- this cancels the "Resume next", just in case...

🚀🌟 点击注册免费试用超级应用平台-英雄云企业级hpaPaas 🌟🚀 😃👉🌐

免责声明：

本网址（www.yingxiongyun.com）发布的材料主要源于独立创作和网友匿名投稿。此处提供的所有信息仅供参考之用。我们致力于提供准确且可信的信息，但不对材料的完整性或真实性作出任何保证。用户应自行验证相关信息的正确性，并对其决策承担全部责任。对于由于信息的错误、不准确或遗漏所造成的任何损失，本网址不承担任何法律责任。本网站所展示的所有内容，如文字、图像、标志、音频、视频、软件和程序等的版权均属于原创作者。如果任何组织或个人认为网站内容可能侵犯其知识产权，或包含不准确之处，请即刻联系我们进行相应处理。