excel单元格肿么自动加法

按下ALT+F11,双击左边框中的"SHEET1"(假设你的功能要在SHEET1中的A1完成)复制下面代码,退出.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)If Target.Row = 1 And Target.Column = 1 Thena = Cells(1, 1).ValueCells(1, 1).Value = a + 1ElseExit SubEnd IfEnd Sub