小编Tec*_*l09的帖子

嗨,我正在尝试创建一个具有循环的宏,该循环将功能向下复制到第1列(VOL),并为每个工作站向下复制第2列(CAPACITY).这是我到目前为止:

Sub TieOut()
    Dim i  As Integer
    Dim j As Integer

    For i = 1 To 3
        For j = 1 To 3
            Worksheets("TieOut").Cells(i, j).Value = "'=INDEX('ZaiNet Data'!$A$1:$H$39038,MATCH('INDEX-MATCH'!Z$7&TEXT('INDEX-MATCH'!$A9,"m/dd/yyyy"),'ZaiNet Data'!$C$1:$C$39038,0), 4)"
        Next j
    Next i

End Sub

我想要的图片如下:您可以看到我已经手动复制并粘贴了每列的两个功能.我只需要一个可以遍历它的宏.

替代文字http://i26.tinypic.com/nz4lfn.jpg

我希望在每个站的VOL列中循环的功能是:

=INDEX('ZaiNet Data'!$A$1:$H$39038,MATCH('INDEX-MATCH'!Z$7&TEXT('INDEX-MATCH'!$A438,"M/DD/YYYY"),'ZaiNet Data'!$C$1:$C$39038,0), 4)

我希望在每个工作站的CAPACITY列中循环的功能是:

=INDEX('ZaiNet Data'!$A$1:$H$39038,MATCH('INDEX-MATCH'!Z$7&TEXT('INDEX-MATCH'!$A438,"M/DD/YYYY"),'ZaiNet Data'!$C$1:$C$39038,0), 5)

有人可以帮忙吗？谢谢!

UPDATE

****如何自动运行循环而无需手动将公式输入前两个单元格并单击宏？
另外,我如何让循环遍历所有列/行？(horizo​​ntically)****

我包括两个屏幕截图来显示我的意思.以下是我目前的代码. alt text http://i26.tinypic.com/i3gw9g.jpg alt text http://i29.tinypic.com/8izl.jpg 谢谢!

    Sub Loop3()
    Selection.Copy
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
    ActiveCell.Offset(-1, 1).Select
    Selection.Copy
    ActiveCell.Offset(1, 0).Select
    ActiveSheet.Paste
    ActiveCell.Offset(0, -1).Select

    Dim i  As Integer
    Dim …