怎样将一张表中的数据根据要求导入到相应的表中去？

qian0018

我是一名VBA的初学者，以下问题太复杂，搞不定，只能请教高手指导。谢谢各位！ 问题2.zip (6.17 KB, 下载次数: 35)

2013-2-17 13:15 上传

点击文件名下载附件

问题描述：将“单据表”的“时间”列中的时间值，导入用其姓名命名的sheet中，以“单据表”的“日期”列中的日期为行，以“单据表”的“名目”列中的名目为列。最终结果见“问题2的实现”工作簿。

qian0018

经过两天苦战，东拼西凑，虽然不像样，也算达到了目标。现将代码录入如下：
Private Sub cb1()       '将单据表中的数据导入各人的表中。
    Dim i, j, cnt As Integer
    Dim hang, lie As Integer                                '定义行、列变量
    Worksheets("单据表").Activate                           '激活“单据表”
    cnta = [a65536].End(xlUp).Row                           '得到有效的行数
    For i = 2 To cnta
        Worksheets(Cells(i, "a").Value).Activate            '激活同名的SHEET
        '以“日期”为关键字，得到行数
        cntb = [a65536].End(xlUp).Row
        For j = 2 To cntb
            If Cells(j, "a") = Worksheets("单据表").Cells(i, "b").Value Then
                hang = j
           End If
        Next j
        '以“名目”为关键字，得到列数
        cntc = [a1].End(xlToRight).Column
        For j = 2 To 6
            If Cells(1, j) = Worksheets("单据表").Cells(i, "d").Value Then
                lie = j
           End If
        Next j
        '导入时间
        Cells(hang, lie) = Worksheets("单据表").Cells(i, "c").Value
        Worksheets("单据表").Activate                           '激活“单据表”
    Next i
End Sub

月来月好

不错，收藏。顶你

kongtong3

thx for ur sharing！

okeey

感谢共享！！！