运行出错，找不到原因

wymoon123 · 发表于 2020-1-21 08:58

有哪位大神能帮忙看看这个是啥问题么

wymoon123 · 发表于 2020-1-21 09:41

有哪位大神帮忙看看啥原因么

网海遨游 · 发表于 2020-1-21 11:01

楼主是个此论坛新手，你把Excel压缩成rar或zip文件，再上传，就是附件了。
没有附件，就没有真相哈。

wymoon123 · 发表于 2020-1-21 15:01

网海遨游发表于 2020-1-21 11:01
楼主是个此论坛新手，你把Excel压缩成rar或zip文件，再上传，就是附件了。
没有附件，就没有真相哈。

我把这个模块给导出来了，请帮忙看看是什么原因不能运行，谢谢了。

网海遨游 · 发表于 2020-1-21 21:11

楼主：光有代码，没有EXCEI表，不好折腾！

wymoon123 · 发表于 2020-1-22 09:22

Excel也上传了，就是一个隐藏了几行之后，想复制到另一个地方，把隐藏的地方忽略掉，只复制显示的部分。

lovemh1987 · 发表于 2020-1-22 09:32

选中区域， alt+；复制粘贴就好了

网海遨游 · 发表于 2020-1-22 10:57

看看这样行不？

Sub test()
With Sheets("sheet1")
.Activate
.Range("C3:C14").SpecialCells(xlCellTypeVisible).Copy
.[f21].Select
.Paste
End With
End Sub

wymoon123 · 发表于 2020-1-22 17:04

不是这个意思，你这个是固定的，我经常复制一些不同的东西，附件里的excel也就是举个例子而已

		自动登录	找回密码
密码			免费注册

[求助] 运行出错，找不到原因