Цитата |
---|
написал: а как Вы планировали поместить в одну ячейку значение сразу нескольких столбцов? Знак собаки как раз и дает однозначно понять Excel, что надо только одно значение записывать в ячейку, а не значения всех столбцов с А до J растягивать в динамический массив. |
Макросы. Как избежать добавления @ в название листа?, Помогите!
Макросы. Как избежать добавления @ в название листа?, Помогите!
14.02.2024 11:05:40
Всем привет, помогите пожалуйста.
При выполнении макроса в ячейке а4 второго листа создается формула =@КЖосновной!A25:J25. Почему добавилось "@" и как от него избавиться. ибо из-за @ ссылка идет только на 1 ячейку а не на всю строку Sub ExtendCellAX() Dim ws1 As Worksheet Dim ws2 As Worksheet Dim startRow As Long Dim endRow As Long Dim formulaStr As String ' Указываем лист, на котором нужно выполнить операции для ячейки A4 Set ws2 = ThisWorkbook.Sheets(1) ' Лист "КЖосновной" ' Указываем лист 2 Set ws1 = ThisWorkbook.Sheets("Лист2") ' Определяем начальную строку из ячейки K4 на листе КЖосновной startRow = ws2.Range("K4").Value ' Определяем конечную строку из ячейки K5 на листе КЖосновной endRow = ws2.Range("K5").Value ' Создаем строку для формулы formulaStr = "='" & ws2.Name & "'!A" & startRow & ":J" & startRow ' Вставляем формулу в ячейку A4 на листе 2 ws1.Range("A4").Formula = formulaStr ' Протягиваем содержимое формулы до строки, указанной в ячейке K5 на листе КЖосновной ws1.Range("A4").AutoFill Destination:=ws1.Range("A4:A" & endRow - startRow + 5) End Sub
Изменено: |
|
|