[已解决]用VBA实现汇总

laoau138 · 发表于 2017-3-26 21:38

本帖最后由 laoau138 于 2017-3-27 09:22 编辑

用VBA实现汇总

最佳答案

yanhj

2017-3-27 08:48

Private Sub CommandButton1_Click()
For x = 2 To 11
For i = 1 To Sheets.Count - 1
Sheets(4).Cells(2, x) = Sheets(4).Cells(2, x) + Sheets(i).Cells(2, x)
Next
Next
End Sub

跳转到最佳答案楼层

yanhj · 发表于 2017-3-27 08:48

Private Sub CommandButton1_Click()
For x = 2 To 11
For i = 1 To Sheets.Count - 1
Sheets(4).Cells(2, x) = Sheets(4).Cells(2, x) + Sheets(i).Cells(2, x)
Next
Next
End Sub

		自动登录	找回密码
密码			注册