VB_Script_error
Rows(Trim(Str(varSt + ":" + Trim(Str(varSt1.Select
О Здорово! Сам бы не догадался! 
странный макрос, если не секрет, что он должен делать?
а код можно сократить до:
Rows(varSt & ":" & varSt1).Select
P.S. и судя по именовой переменной xlDown это vba, а не vbs
а код можно сократить до:
Rows(varSt & ":" & varSt1).Select
P.S. и судя по именовой переменной xlDown это vba, а не vbs
Действительно VB for aplications.
Вообще это кусок из макроса, он должен объединить данные из двух листов, так чтобы строки данных из одного листа вставали меж строк в другом.
Вообще это кусок из макроса, он должен объединить данные из двух листов, так чтобы строки данных из одного листа вставали меж строк в другом.
Оставить комментарий
grey1970
Кто нибудь знает почему неработает?Sub Macro1
Dim i
Dim varSt
Dim varUp
Dim varSt1
varSt = 1
varUp = 4
For i = 0 To 40
varSt1 = varSt + 1
Rows("varSt:varSt1").Select
Selection.Copy
Sheets("sheet2").Select
Rows("varUp:varUp").Select
Selection.Insert Shift:=xlDown
varSt = varSt + 3
varUp = varUp + 6
Next
End Sub