excel中是否有使用键盘快捷键重复excel中公式的功能

excel中是否有使用键盘快捷键重复excel中公式的功能,excel,vba,excel-formula,Excel,Vba,Excel Formula,如何在excel中的特定单元格中设置公式,以便每次使用键盘快捷键时自动计算公式?我需要使用快捷键计算B11、C11、D11等中每列的平均值(而不是拖动公式或更改引用) 此宏将检测第一列和最后一列中的最后一行,然后从第2列开始循环遍历数据 打开Excel VBA(ALT-F11) 在VBA项目上单击鼠标右键,然后插入>模块 将以下代码复制到新创建的模块 将热键(ALT-F8>选项)附加到宏 我的回答对你有帮助吗?如果是这样,请确保投票/接受答案以关闭帖子,并向其他人展示解决方案(如果他们有类似

如何在excel中的特定单元格中设置公式,以便每次使用键盘快捷键时自动计算公式?我需要使用快捷键计算B11、C11、D11等中每列的平均值(而不是拖动公式或更改引用)


此宏将检测第一列和最后一列中的最后一行,然后从第2列开始循环遍历数据

  • 打开Excel VBA(ALT-F11)

  • 在VBA项目上单击鼠标右键,然后插入>模块

  • 将以下代码复制到新创建的模块

  • 将热键(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