Почему я получаю сообщение об ошибке 1004 при попытке указать переменную цикла в ссылке на ячейку?

Question

Я застрял, прежде всего потому, что я все еще новенький на VBA.Поэтому я очень ценю любую помощь, которую вы мне можете оказать.Я просмотрел много других сообщений об ошибках 1004 здесь, но они были либо для разных проблем, либо вполне возможно, что я просто слишком неосведомлен, чтобы знать, что делать с советом в них.

Моя проблемавот что: у меня есть две рабочие книги, одна с необработанными данными, а другая - с необработанными данными, объединенными в соответствующие статистические данные.Я пытаюсь суммировать данные в X: X в моей необработанной рабочей книге (6620) по двум критериям в статистической книге, а затем обновлять значение в соответствующей ячейке в статистической книге.

Я сталкиваюсь сОшибка выполнения 1004: ошибка приложения или объекта в указанных точках.Я заблудился относительно того, как пройти через это.

Любая помощь очень ценится!

Насколько я получил:

Option Explicit

Sub ImportFTEs()

Application.ScreenUpdating = False
Application.EnableEvents = False

    Dim ws As Integer

    Workbooks.Open Filename:=ActiveWorkbook.Path & "\6620\FY19*.xlsb"
        For ws = 1 To Worksheets.Count
            Sheets(ws).Name = "Sheet1"
        Next ws

        Dim i As Integer
        Dim j As Integer
        Dim k As Integer
        Dim l As Integer
        Dim totalFTE As Long
        Dim lastRow As Integer
            lastRow = Cells(Rows.Count, "D").End(xlUp).Row
        Dim wb As Worksheet
            Set wb = Workbooks.Open(ActiveWorkbook.Path & "\FY19*.xlsb").Sheets("Sheet1")
        Dim wc As Worksheet
            Set wc = ThisWorkbook.Sheets("B")
        Dim sum1R As Range
            Set sum1R = wb.Range("X:X")
        Dim arg2R As Range
            Set arg2R = wb.Range("D:D")
        Dim arg2C As Range
            Set arg2C = wc.Cells(7, i)
                                 >>> Error 1004
        Dim arg3R As Range
            Set arg3R = wb.Range("S:S")
        Dim arg3C As Range
            Set arg3C = wc.Cells(j, 6)
                                 >>> Error 1004
            For k = 8 To 18
                For l = 7 To 18
                    For i = 7 To 18
                        For j = 8 To 18
                            wc.Cells(k, l).value = Application.WorksheetFunction.SumIfs(sum1R, arg2R, arg2C, arg3R, arg3C)
                        Next j
                    Next i
                Next l
            Next k
    ActiveWorkbook.Close savechanges:=True

Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub

Answer 1

Должно быть что-то вроде этого - вам нужны строки Set, содержащие i и j внутри их соответствующих циклов - таким образом, значения фактически увеличиваются (а не равны 0, когда они 'повторная инициализация):

Option Explicit
Sub ImportFTEs()

    Application.ScreenUpdating = False
    Application.EnableEvents = False

    Workbooks.Open Filename:=ActiveWorkbook.Path & "\6620\FY19*.xlsb"

    Dim i As Long, j As Long, k As Long, l As Long
    Dim totalFTE As Long

    Dim wb As Worksheet
    Set wb = Workbooks.Open(ActiveWorkbook.Path & "\FY19*.xlsb").Sheets("Sheet1")

    Dim wc As Worksheet
    Set wc = ThisWorkbook.Sheets("B")

    Dim sum1R As Range
    Set sum1R = wb.Range("X:X")

    Dim arg2R As Range
    Set arg2R = wb.Range("D:D")

    Dim arg3R As Range
    Set arg3R = wb.Range("S:S")

    Dim arg2C As Range
    Dim arg3C As Range

    For k = 8 To 18
        For l = 7 To 18
            For i = 7 To 18

                Set arg2C = wc.Cells(7, i)

                For j = 8 To 18

                    Set arg3C = wc.Cells(j, 6)

                    wc.Cells(k, l).Value = Application.WorksheetFunction.SumIfs(sum1R, arg2R, arg2C, arg3R, arg3C)

                Next j
            Next i
        Next l
    Next k

    ActiveWorkbook.Close True

    Application.ScreenUpdating = True
    Application.EnableEvents = True

End Sub