求大佬们指导!初学VBA又又又卡住啦!
vba吧
全部回复
仅看楼主
level 1
一隻蠟筆℃º
楼主
背景:2个工作簿、把一个工作簿的datasheet中一些列的数据、copy到qc表的固定列(不是连续列)、data表中的数据有前期加工所以是有筛选的状态。
目的:拿r列举例 我想的是因为想要copy的range地址不固定所以要找到R1下面单元格是首个数据单元格、最后列数据是最后行的单元格(因为有多列数据要粘贴过去所以我想找的是最大行的地址、比如最大行是100、我copy的时候直接就r100、别的列的就A100这种)
我不知道是不是想的不对、刚刚接触vba理解太浅、请各位大佬多多帮助啦
2024年07月11日 08点07分
1
level 3
liuyu5863016
先找整个工作表的最大行数last_row,然后不管每个列的最大行是否等于last_row,全部按照last_row走。
last_row = datasheet.usedrange.rows.count
2024年07月11日 13点07分
2
一隻蠟筆℃º
谢谢你 但有问题 在三楼
2024年07月12日 03点07分
level 1
一隻蠟筆℃º
楼主
我参照2楼修改了下
但有个问题 无论我抓的lastrow 或者 firstrange
他抓的数据都是隐藏行的内容、date的input内容是筛选过的 这种情况怎么处理呢
2024年07月12日 03点07分
3
一隻蠟筆℃º
@娜乌_西卡
2024年07月12日 03点07分
level 3
liuyu5863016
没明白,只是复制可见区域吗?
rng.SpecialCells(xlCellTypeVisible)
将rng改为你自己的区域,只筛选可见区域,不包括隐藏行列和未被筛选的行列
2024年07月12日 05点07分
4
一隻蠟筆℃º
没错、data表是filter过的
2024年07月12日 08点07分
level 1
一隻蠟筆℃º
楼主
是这个意思么、值取得不对呢
2024年07月12日 08点07分
5
liuyu5863016
找个网盘上传附件,说清楚需求,链接发我
2024年07月12日 09点07分
1