19楼: Originally posted by shinevip at 2012-10-05 17:24:35
LZ改一下python 脚本里面文件名 就可以...

LST_in = open('lmh.txt', mode='r')
DES_out = open('cmpd_info.txt', mode='w')

for line in LST_in:

      LST_fields = line.split()
      number = LST_ ...

20楼: Originally posted by anntoy at 2012-10-05 19:39:19
打开之后按Alt+F11就能打开那个脚本了
表格的内容要按照sheet1那样的格式，可以往下面继续添加条件和数据，结果存放在sheet2，时间那一列你可能要修改一下显示的格式，如果需要修改存放数据的位置……你自己先看看 ...

21楼: Originally posted by anntoy at 2012-10-05 19:42:14
对了，还要把宏的安全性设置到最低，要不然不让运行
“工具”->“宏”->“安全性”：低

25楼: Originally posted by dedream at 2012-10-05 21:23:23
我想得到这个效果
第一个表的含量与第二个表对应时间的所有参数对应起来。

这个宏代码倒是看明白了，但修改 不出想要的效果。
anntoy兄能帮忙再看一下吗？
82/40/317450_1349443302_552.jpg|1
效果
...

Sub filter()
    Dim n, m, l, k, h
    n = 2
    m = 2
    l = 1
    h = 1
    While Sheets("sheet1").Cells(1, 6 + h) <> ""
        h = h + 1
    Wend
    While (Sheets("sheet1").Cells(m, 6) <> "")
        n = 2
        While (Sheets("sheet1").Cells(n, 1) <> "")
            If Format(Sheets("sheet1").Cells(n, 1), "yyyy/MM/dd hh:mm") = Format(Sheets("sheet1").Cells(m, 6), "yyyy/MM/dd hh:mm") Then
                Sheets("sheet2").Cells(l, 1) = Sheets("sheet1").Cells(n, 2)
                For k = 1 To h
                    Sheets("sheet2").Cells(l, k + 1) = Sheets("sheet1").Cells(m, 5 + k)
                Next
                l = l + 1
                GoTo c
            End If
            n = n + 1
        Wend
c:
        m = m + 1
    Wend
End Sub

23楼: Originally posted by dedream at 2012-10-05 20:41:13
运行了以后，cmpd_info.txt是空的，等我再看看代码...

27楼: Originally posted by shinevip at 2012-10-06 00:14:52
看了下数据形式, 重新修改了下python 脚本, 以前两列为比较依据, 精确到分钟. 把小数据存成 a.txt, 大数据存成b.txt.  结果就会在results.txt里面. 我还没测试, LZ可先运行下. 有问题再发上来...

LST_in = open ...

28楼: Originally posted by dedream at 2012-10-06 11:54:54
number = LST_fields + LST_fields
IndexError: list index out of range

我再看看，昨天一直在琢磨那个宏...

29楼: Originally posted by shinevip at 2012-10-06 12:35:49
超载链接里的文件. 把数据放入a.txt(小) 和b.txt(大) 里面, 直接调用.. 代码已经测试过..
http://pan.baidu.com/share/link?shareid=70652&uk=1093614952...