求助

zss427607

请各位 老师 帮忙看看
如何可以在
首页中录入数据及汇总中汇总
先谢谢了

zss427607

谢谢 版主

pureshadow

写了个入库的
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