作者andy4624 (Endless Fighting)
看板Office
标题[算表] VB选取原档案之资料 复制 贴上
时间Thu Oct 27 15:02:51 2022
软体:excel
版本:office 365
我是VB新手，在录制巨集，想要用巨集将 A档案的库存资讯 存入 B档案之中
库存资讯大概是两个资讯，料号及数量
料号 数量
100-100-100 50
100-100-200 49
100-100-300 30
因为随着新产品开发，会有新的料号产生，但是若执行巨集
只会将原本录制的三列复制到B档案之中 (以上面的例子就是 B2:B4)
想要请问VB有办法写出找到 A栏最後有值的栏位 (例如我又进了两个货)
料号 数量
100-100-100 50
100-100-200 49
100-100-300 30
100-100-400 20
100-100-500 25
以这个例子，是B2:B6的值复制到 B档案去吗？
不然每次有新产品，我就得进VB去修改，就没有巨集的方便性了
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 123.194.137.131 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1666854174.A.B0B.html
1F：→ suaveness: UsedRange 参考看看? 10/27 16:50
2F：→ suaveness: 如果是新手我觉得先复制全部列数的内容 10/27 16:52
3F：→ suaveness: 然後把复制後的"料号 数量"那列删掉可能比较简单 10/27 16:52
4F：推 waiter337: r = Columns("A:E").Find("*", , -4163, , 1, 2).Row 10/27 20:50
5F：→ waiter337: r = Columns("B:B").Find("*", , -4163, , 1, 2).Row 10/27 20:50
6F：→ waiter337: debug.print r 10/27 20:51
7F：推 oldbottle: 〔A65536〕.end (xlup).row 10/28 11:09
8F：→ oldbottle: 先定义A栏最後一列 10/28 11:09
9F：→ andy4624: 後来直接写入B2:B1000 比较符合我现在的能力 XD 11/15 15:52