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

3楼: Originally posted by dedream at 2012-10-03 14:16:57
win下怎么办呢？