Скажите как сделать так, чтобы раскопировать эту строчку по остальным, так чтобы значения в этой строчке менялись. Т.е. от 01 до 81 Нужно раскопировать это всё по всем строкам...
Sub q() Dim i&, ar(1 To 81, 1 To 1) For i = 1 To 81 ar(i, 1) = "=СЧЁТЗ('C:\Users\***\Desktop\***\" & i & "\[Таблица.xlsm]Таблица'!A$4:A$310)" Next i [a1].Resize(81) = ar End Sub