Question

vba如何一键把一个excel表格下多个sheet(sheet的名字不同)的h列同时写上公式？

Answer 1

选中所有需写公式的工作表（先点第一个，若工作表是连续的，就按住shift，鼠标点最后一个，否则按住ctrl，鼠标依次点各表），又选中h列需写公式的范围输入公式，同时按ctrl+回车即可

Answer 2

Sub aa()
Dim n
For n = 1 To Sheets.Count
Sheets(n).Select
Sheets(n).Range("h1:h1000") = "=sum(a1:a100)" '公式
Next
End Sub