作者lovebbw (非胖勿扰)
看板Office
标题[算表] 将资料自动依类别归分页
时间Mon Nov 18 18:32:48 2019
软体:EXCEL
版本:2010
请问是否有公式或是巨集可以做到以下功能
假设资料为
111 A B C
111 D E F
112 A B C
113 A B C
113 D E F
114 A B C
有111~114个分页
执行後
将111的资料贴入111分页中、112贴入112...以此类推
如果111原本已有资料，就贴在该资料下方
例如111分页
111 A A A <原有资料
111 A D C <原有资料
111 A B C
111 D E F
---------------------
会想要这功能是因为原始资料要贴在30个以上的分页，每天只会有1~3笔更新
但人工操作要做90次...太累了，想请问是否有更好的方式可做
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 125.227.151.121 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1574073171.A.CE3.html
2F：→ soyoso: 个吗？ 11/18 18:38
3F：→ soyoso: 如果是的话请以工作表称呼，excel内工作表和分页是不同的 11/18 18:39
4F：→ soyoso: 再问工作表"111"内原有资料还会存在於工作表"资料"内吗？ 11/18 18:41
5F：→ soyoso: 不存在，巨集，回圈(看要回圈於这30个以上工作表名称的清 11/18 18:43
6F：→ soyoso: 单或是worksheets亦或sheets的集合，worksheet.name可取得 11/18 18:44
7F：→ soyoso: 工作表名)，如内文举例，有排序的话，range.find或工作表 11/18 18:45
8F：→ soyoso: 函数match来找到第一笔的储存格或列号，工作表函数countif 11/18 18:46
9F：→ soyoso: 可取得笔数，range.resize取得范围，range.copy复制和贴上 11/18 18:47
10F：→ soyoso: 确认如工作表111内最後一笔有值资料的储存格或列号 11/18 18:48
11F：→ soyoso: range.end、range.find或工作表函数count、counta(资料有 11/18 18:48
12F：→ soyoso: 连续的话) 11/18 18:48
13F：→ soyoso: ====================================================== 11/18 18:49
14F：→ soyoso: 存在的话，函数cell可取得完整路径和完整档名，再以mid、 11/18 18:50
15F：→ soyoso: find来取出公式所在的工作表名 ^工作表名称 11/18 18:51
16F：→ soyoso: 之後就要看资料有没有排序，有，index、offset或indirect 11/18 18:52
17F：→ soyoso: 配合match和row 11/18 18:54
18F：→ soyoso: 没有，small(if(.. 11/18 18:54