求助：从第一个表里面调用数据

178490420

求高手解决一下：第一个表里面有很多数据
怎么才能在第二个表里面按照一定的格式直接调用
就是在第一个表里面输入后  在第二个表里面直接显示？
我直接调用为什么不行啊
file:///D:/QQ/Users/178490420/Image/Image1/QD0%5LA7998HMCVVDB2O1HD.gif

shijiwen

直接用=引用就行了，这个示例你看是不是你想要的？

178490420

shijiwen 发表于 2012-5-24 13:42
直接用=引用就行了，这个示例你看是不是你想要的？

这是我的操作 可惜不行 上面没有显示

178490420

上面没有显示  不好意思  我原来也是这么操作的  但是达不到效果

178490420

问题已经解决  现在发吧一下正确答案  飞天小猪给的


Sub aa()
    j = Sheet1.[b65536].End(xlUp).Row - 2 '从哪个表取数，就把sheet1改成那个表的表名
    i = 3
    With Sheet1                           '从哪个表取数，就把sheet1改成那个表的表名
    Do While i < j * 5 + 2
        For k = 3 To j + 2
            Cells(i, 1) = .Cells(2, 1)
            Cells(i, 2) = .Cells(k, 1)
            Cells(i, 3) = .Cells(2, 3)
            Cells(i, 4) = .Cells(k, 3)
            Cells(i + 1, 1) = .Cells(2, 4)
            Cells(i + 1, 2) = .Cells(k, 4)
            Cells(i + 1, 3) = .Cells(2, 5)
            Cells(i + 1, 4) = .Cells(k, 5)
            Cells(i + 2, 1) = .Cells(2, 6)
            Cells(i + 2, 2) = .Cells(k, 6)
            Cells(i + 2, 3) = .Cells(2, 2)
            Cells(i + 2, 4) = .Cells(k, 2)
            Cells(i + 3, 1) = .Cells(2, 7)
            Cells(i + 3, 2) = .Cells(k, 7)
            Cells(i + 3, 3) = .Cells(2, 9)
            Cells(i + 3, 4) = .Cells(k, 9)
            i = i + 5
        Next
    Loop
    End With
End Sub

新建一个宏就可以了

178490420

正确答案                  

laoda1228

难道不是 vlookup