XLSht := oExcel.ActiveSheet
oCells := XLSht.Cells
lastEmpty := oCells.(XLSht.Rows.Count, "A").End(xlUp := -4162).Row + 1
oCells.(lastEmpty, "A").SelectЭто работает:
aa := xl.ActiveSheet.Cells(xl.ActiveSheet.Rows.count, "A").end(xlup := -4162).row + 1
msgbox % aaА почему то не выделяет:
aa := xl.ActiveSheet.Cells(xl.ActiveSheet.Rows.count, "A").end(xlup := -4162).row + 1
aa.selectXLSht := oExcel.ActiveSheet
rng := XLSht.Cells(XLSht.Rows.count, "A")
MsgBox, % rng.end(xlup := -4162).row + 1xl.ActiveSheet.UsedRange.Rows.Count +1- это не подходит
xl.Cells(xl.Rows.Count, *).End(xlUp := -4162).Offset(*, *)- это не подходит
end := xl.Cells(2, 6).End(xlDown := -4121).Select. Как к этому значению добавить +1
Заранее спасибо!
]]>