十万火急在线等啊，关于一列数据的分段

arguz

我有一个表格，第一列是股票代码，第二列是交易日期，第三列是收益率。我想，把第三列收益率按第一列股票代码分成一个表格。

大致意思是这样。

A                   B                            C

600000	2011-01-04	.017756
600000	2011-01-05	.007930

600004	2011-01-04	.020408
600004	2011-01-05	.027778

600005	2011-01-04	.021028
600005	2011-01-05	-.011442

........................(三十万行）

我要变成这样。

A                          B                          C                             D      
TIME                  600000                 600004                600005
2011-01-04       .017756               .020408              .021028
2011-01-05       .007930               .027778             -.011442

期末论文急需啊。。。求大神帮忙啊。。。

arguz

顶上。。。

swyrlbq

ww.rar (2.55 KB, 下载次数: 17)

2012-6-21 06:38 上传

点击文件名下载附件

mjzxlmg

[code=vb]Sub test()
Dim d As Object, arr, brr, i&, m&, s&, n&, ss&, d1 As Object
Set d = CreateObject("scripting.dictionary")
Set d1 = CreateObject("scripting.dictionary")
arr = Sheet1.[a1].CurrentRegion.Value
ReDim brr(1 To UBound(arr), 1 To 16384)
n = 1: m = 1
For i = 2 To UBound(arr)　　　　'第一行标题行，从第二行开始循环；如果没有标题行，把这句中的2改为1
    ss = d1(arr(i, 1))
    If ss = Empty Then
        n = n + 1
        d1(arr(i, 1)) = n
        ss = n
        brr(1, ss) = arr(i, 1)
    End If
    s = d(arr(i, 2))
    If s = Empty Then
        m = m + 1
        d(arr(i, 2)) = m
        s = m
        brr(s, 1) = arr(i, 2)
    End If
    brr(s, ss) = arr(i, 3)
Next
brr(1, 1) = "Day"
With Sheet2
    .UsedRange.ClearContents
    .[a1].Resize(m, n).Value = brr
End With
Set d = Nothing: Set d1 = Nothing
End Sub[/code]

arguz

两位都是大神啊~十分感谢你们！！！！

arguz

swyrlbq 发表于 2012-6-21 06:38

好强大啊~！！我要像你一样灵活使用这些函数就好了~

arguz

mjzxlmg 发表于 2012-6-21 08:01

十分感谢啊~！！又学到一招

arguz

11年过去了，如果你能看到就好了，“请你尽早学python吧”。

1. 
   
2. <div>import pandas as pd
   
3. df = pd.read_clipboard()
   
4. df.pivot(index='B',columns='A',values='C')</div>

复制代码

mmwwdd

这帖子够古老的了，这都能翻出来