标题: 求助 [打印本页] 作者: zss427607 时间: 2009-2-14 13:14 标题: 求助 请各位 老师 帮忙看看
如何可以在
首页中录入数据及汇总中汇总
先谢谢了作者: pureshadow 时间: 2009-2-14 18:10
写了个入库的
Sub i()
Dim myrow As Long
Dim mydarow As Long
Dim myst As String
myst = Sheets("首页").Range("c8")
myrow = Sheets(myst).Range("a65536").End(xlUp).Row + 1
For mydarow = 1 To 3
Sheets(myst).Cells(myrow, mydarow) = Sheets("首页").Cells(mydarow * 2, 3)
Next
End Sub作者: zss427607 时间: 2009-2-23 20:18
谢谢 版主