大神帮忙

请教教我吧

我想把wps表格里的行里的一部分信息变成列 薄里有两个表 第一个是原表 第二个是我想变成的表 大神们有什么好方法没有 数据量太大 一个一个弄太麻烦啊 因为要用邮件合并 所以每年都要按照缴费月和金额都区分开

gdw831001

数据量大最好用vba解决

请教教我吧

gdw831001 发表于 2018-11-29 18:09
数据量大最好用vba解决

不会啊 大哥

gdw831001

1. Sub 量()
   
2.     Dim dic, r, rng, k, r1, s, t, n
   
3.     rng = Sheets("原表").[a1].CurrentRegion
   
4.     Set dic = CreateObject("scripting.dictionary")
   
5.     For r = 2 To UBound(rng)
   
6.         If dic.Exists(rng(r, 5)) = False Then
   
7.             k = 1 + k
   
8.             dic(rng(r, 5)) = rng(r, 8) & "[" & k & "[" & rng(r, 2) & "[" & rng(r, 3) & "[" & rng(r, 4) & "[" & rng(r, 5) & "[" & rng(r, 6) & "[" & rng(r, 7)
   
9.         Else
   
10.             dic(rng(r, 5)) = dic(rng(r, 5)) & "[" & rng(r, 6) & "[" & rng(r, 7)
    
11.         End If
    
12.     Next r
    
13.     t = dic.items
    
14.     r1 = Sheet2.Cells(Rows.Count, 1).End(3).Row + 1
    
15.     For s = 1 To dic.Count
    
16.         Sheet2.Cells(r1, 20) = Split(t(s - 1), "[")(0)
    
17.         For n = 1 To 19
    
18.         On Error Resume Next
    
19.             Sheet2.Cells(r1, n) = Split(t(s - 1), "[")(n)
    
20.         Next n
    
21.         r1 = r1 + 1
    
22.     Next s
    
23.     Set dic = Nothing
    
24. End Sub

复制代码

请教教我吧

大神你写的这个不对 只能出两个人 并且表格混乱啊

请教教我吧

gdw831001 发表于 2018-11-30 13:00

大神你写的对了 是我的表有问题了 太谢谢你了  如果以后我加了数据 那就直接把原表内容变了 就完了吧  再运行一下你写的这个就好了吧？

gdw831001

请教教我吧 发表于 2018-12-2 16:11
大神你写的对了 是我的表有问题了 太谢谢你了  如果以后我加了数据 那就直接把原表内容变了 就完了吧  再 ...

数据乱只能自己整理好，运行代码就可以