作者jerry7504 (Amo)
看板Office
标题[算表] VBA合并与转换多栏
时间Sat Oct 26 04:16:08 2019
软体:excel
版本:2013
大家好如上述小弟目前资料型态如下：
学号 测验次数 国 英 数 国2 英2 数2 延续下去
因为上一个人汇入资料没有做条件汇入资料库
现在资料为：
学号 测验次数 国 英 数 国2 英2 数2 国3 英3 数3
123 2 80 70 70 70 80 90
123 1 70 60 80
照常理来说这个资料应该合并然後加到第三次而并非独立出来这个资料最多只做4次测验
需每次做分析不能合并算平均或总成绩
小弟的问题是
1.如何将学号合并为多栏并且将下面第一次的资料贴到第三次且次数加至正确数量如下：
学号 测验次数 国 英 数 国2 英2 数2 国3 英3 数3
123 3 80 70 70 70 80 90 70 60 80
2.假如有各种测验次数的学生如只做1次的一样有两笔如何判断让它加到第二次如下：
学号 测验次数 国 英 数 国2 英2 数2 国3 英3 数3
123 2 80 70 70 70 80 90
123 1 70 60 80
456 1 70 60 80
456 1 60 70 85
结果：
学号 测验次数 国 英 数 国2 英2 数2 国3 英3 数3
123 3 80 70 70 70 80 90 70 60 80
456 2 70 60 80 60 70 85
3.还有一种情况插入是三次
123 1 70 60 88
123 1 70 60 80
123 1 70 60 83
要考虑以下状况该怎麽写呢拜托了
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 39.12.162.106 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1572034570.A.BF9.html
1F：→ soyoso: 1.要有学号唯一值，如果有就不用以下方式10/26 10:05
2F：→ soyoso: 方式有a)资料工具的移除重覆range.removeduplicates10/26 10:05
3F：→ soyoso: b)进阶筛选，range.advancedfilter10/26 10:05
4F：→ soyoso: c)dictionary 10/26 10:05
5F：→ soyoso: d)回圈，判断，工作表函数countif(是否为0)，10/26 10:05
6F：→ soyoso: match(是否为错误值)10/26 10:05
7F：→ soyoso: 2.有唯一值後填入第一笔资料和找是否有重覆，回圈於范围内10/26 10:05
8F：→ soyoso: ，或回圈於range.find，找到以range.copy或range= range.10/26 10:05
9F：→ soyoso: value复制贴上或填入；要确认每笔学号最右侧有值储存格栏10/26 10:05
10F：→ soyoso: 号的话，range.end、range.find或工作表函数counta(有连续10/26 10:05
11F：→ soyoso: 资料时)，栏号的话range.column10/26 10:05
12F：→ jerry7504: 目前唯一值有了可是不知道怎麽去比对2者相同学号後面10/26 16:15
13F：→ jerry7504: 的所有值 贴上部分如何依序贴呢？10/26 16:15
14F：→ soyoso: 巢状回圈判断或是回圈range.find，就看是否有排序，有的话10/26 16:36
15F：→ soyoso: range.find或是工作表函数match取第一笔出现的列号，回圈10/26 16:36
16F：→ soyoso: 工作表函数countif取得的笔数，位序贴上就要看每笔学号最10/26 16:36
17F：→ soyoso: 右侧有资料的储存格或栏号，方式上述回文range.end之後都10/26 16:36
18F：→ soyoso: 是再说明这方面，有这个资料range.offset或是栏号+110/26 16:36
19F：→ jerry7504: 痾小弟不才搞了5小时连後面范围都选不出来...10/26 18:09
20F：→ jerry7504: S大能提供函数或VBA程式吗xD10/26 19:02
21F：→ soyoso: 提供回文所述选不出来的档案或写法，再来看看问题是什麽？10/26 19:55
22F：→ jerry7504: 我先重新来不然都乱了s大帮我大概分析一下概念有没有10/26 20:56
23F：→ jerry7504: 错10/26 20:56
24F：→ jerry7504: 1.筛选唯一学号2.将表二唯一学号跟表ㄧ原始资料比对10/26 20:56
25F：→ jerry7504: 如果相等将表ㄧ对应学号右边值抓出10/26 20:57
26F：→ jerry7504: 2、依照学号依序贴上後面数值 10/26 20:58
27F：→ soyoso: 如原po回文所述10/26 21:16
28F：→ jerry7504: 目前程式阶段跟错误10/26 21:46
30F：→ soyoso: 以巨集来看有可能出现这个错误的原因是sheet2要改为类似上10/26 21:53
31F：→ soyoso: 方工作表1的写法，如工作表2.range("a:a")之类的10/26 21:54
32F：→ soyoso: 如要match寻找完全符合的话，第三个引数不是1，而是010/26 21:55
33F：→ soyoso: 另外也不太了解变数E是什麽？1.不确定这个变数的型态是什10/26 21:59
34F：→ soyoso: 麽？range吗？10/26 21:59
35F：→ soyoso: 2.如果是的话，要set该变数10/26 22:00
36F：→ jerry7504: 有改了好像还是一样还是要加宣告10/26 22:00
37F：→ jerry7504: 那这个概念写成这样有错吗？10/26 22:02
39F：→ jerry7504: 目前改完可以执行但是没有值10/26 22:05
41F：→ soyoso: 可以执行，没错误产生，但没有值带入方面还是要从档案来看10/26 22:12
42F：→ soyoso: 因为测试连结的巨集，工作表1有连续资料(二栏以上)是可以10/26 22:20
43F：→ soyoso: 将工件表2的b栏资料带入的10/26 22:20
45F：→ jerry7504: 目前变这样...10/26 22:21
46F：→ jerry7504: 我的档案是这样10/26 22:25
49F：→ soyoso: 连结不知道哪个是工作表1、工作表210/26 22:29
50F：→ jerry7504: 疑那要如何修改10/26 22:35
51F：→ jerry7504: S大那个怎麽用出来的10/26 22:35
52F：→ soyoso: 修改什麽？因为不确定22:25和22:26所上传的图档是工作表110/26 22:37
53F：→ soyoso: 或2，没看到下方工作表名称10/26 22:37
54F：→ soyoso: 那个怎麽用出来的？不了解，哪个？我的连结图档？10/26 22:39
55F：→ soyoso: 如果是的话，是以萤幕截图10/26 22:39
56F：→ soyoso: 从原po回文的图档来看应是无机密性吧，若没有的话看要不要10/26 22:41
57F：→ soyoso: 就上传云端空间，提供连结(缩网页)，这样不限我版上先进要10/26 22:42
58F：→ soyoso: 协助原po也会较方便10/26 22:42
60F：→ jerry7504: 1AdtQn-pp_w_Qn/view10/26 22:59
61F：→ jerry7504: 感谢大大10/26 22:59
63F：→ jerry7504: 忘记缩网再麻烦了10/26 23:05
64F：→ jerry7504: 这个是结果档我vba还没写10/26 23:22
66F：→ jerry7504: 这个是我写到刚刚那个问题的10/26 23:24
67F：→ soyoso: 是工作表1的资料填到工作表2的话，判断後面的写法就相反了10/27 06:53
68F：→ soyoso: 应是工作表2.range=工作表1.range，取得最右侧有值的储存10/27 06:54
69F：→ soyoso: 格也会是写於工作表2.range的部分10/27 06:55
70F：→ soyoso: 如只有a栏一栏，不以xltoright，而是xltoleft的方式 10/27 06:56
71F：→ jerry7504: 我改成left可是它没办法全部依照学号往下 是读到学号10/27 15:12
72F：→ jerry7504: 的最後第一个值耶10/27 15:12
75F：→ soyoso: 这方面还是要看巨集如何写才比较清楚10/27 15:46
77F：→ jerry7504: 有抓到第一个值但是它只显示最後一个出来10/27 15:50
78F：→ jerry7504: 目前程式一直跑的确会依序抓到最後但是列不出来10/27 15:57
79F：→ soyoso: 这样的截图，没看到工作表1或2是那个资料，要的话请附上工10/28 10:48
80F：→ soyoso: 作表1、工作表2名称和巨集的截图，不然就以档案来看才比较10/28 10:50
81F：→ soyoso: 清楚10/28 10:50
82F：→ soyoso: 就像我10/27 06:54所回文取得最右侧有值的储存格也会是写10/28 10:52
83F：→ soyoso: 在工作表2.range的部分，但巨集上还是写在工作表1(变数r)10/28 10:53
84F：→ soyoso: 的部分10/28 10:53
86F：→ soyoso: 我就不分工作表了，要有k栏(唯一值)的资料，提供的是range10/28 11:10
87F：→ soyoso: .copy方式，如不用带格式的话，以回文range=range.value方10/28 11:10
88F：→ soyoso: 式。连结内L栏後就是从c栏起的资料了10/28 11:12
90F：→ jerry7504: 感谢s大 我27号已经有试出来了 不过我是用do untilloop10/28 19:12
91F：→ jerry7504: 不知道哪个效率比较高呢？10/28 19:13
92F：→ jerry7504: 我之後会再试试看真的很感谢s大～ 10/28 19:14
94F：→ jerry7504: 这是我27号写出来的结果是在工作表2里 跟s大的结果一10/28 19:21
95F：→ jerry7504: 样10/28 19:21
96F：→ jerry7504: 不过在我原始data 处理的速度会有点慢 原始有1万多笔10/28 19:22
97F：→ jerry7504: 会有一小段无法回应的时间10/28 19:22
※ 编辑: jerry7504 (27.52.229.55 台湾), 10/29/2019 23:20:42