Есть ли в Excel функция повторения формул в Excel с помощью сочетаний клавиш - PullRequest
0 голосов
/ 22 февраля 2020

как мне установить формулу в Excel в конкретной ячейке, чтобы каждый раз, когда я использовал сочетание клавиш, он автоматически вычислял ее? Мне нужно вычислить среднее значение для каждого столбца в B11, C11, D11 и т. Д. С ярлык (без перетаскивания формулы или изменения ссылок).

enter image description here

1 Ответ

0 голосов
/ 22 февраля 2020

Этот макрос обнаружит последнюю строку в первом и последнем столбцах, а затем проведет l oop через данные, начиная со столбца 2.

  • Открыть Excel VBA (ALT-F11)

  • Щелкните правой кнопкой мыши VBAPпроект и вставьте> Модуль

  • Скопируйте следующий код во вновь созданный модуль

  • Прикрепите горячую клавишу (ALT-F8> Опции) к макросу.

Sub avgcol()
    Dim lRow, lCol, i As Long
    Dim wb As Workbook: Set wb = ThisWorkbook
    Dim ws As Worksheet: Set ws = wb.Worksheets("Sheet2")
        lRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
        lCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    For i = 2 To lCol
        ws.Cells(lRow + 1, i).Value = Application.WorksheetFunction.Average(Range(Cells(1, i), Cells(lRow, i)))
    Next i
End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...