Question

EXCEL工作薄中很多工作表，如何使每个工作表中同一单元格的数据等于前一张工作表对应单元格数字加1

Answer 1

1.先输入选项和题目如图

2.按住alt+F11，出现如下窗口

3.打开代码窗口，把如下代码复制进去

Private Sub Worksheet_SelectionChange(ByVal Target As Range)Target = Target + 1End Sub

4.保存，然后右上角叉叉

5.最后就是这样点一下，数字就会 加一，弄好之后再按alt+F11，把代码删除，保存即可

Answer 2

下一个工作表中输入“=”，再去选前一个表中的对应单元格，再输入“+1”

追问

很多张表 难道我要一个一个输吗 ???

追答

可以下拉，但是很多张也可以复制，粘贴----选择性粘贴-----公式，你试试吧

追问

同一个工作表可以下拉 不同工作表也能下拉吗
而且选择性粘贴公式粘贴的是第一个工作表+1

追答

不同工作表也可以下拉，这个没问题。我试了，选择粘贴，始终是同一个工作表加1，

追问

请注意 看清楚问题 是每个工作表中的同一个单元格等于前一个工作表加1

Answer 3

先填两个单元格，比如填5和6，选中之后向下拉就行了。

Answer 4

右键-选择性粘贴-粘贴链接

Answer 5

对当前工作表的Worksheet_Change事件编程：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ws As Worksheet
Dim rag As Range, rag1 As Range
Dim a As Double
Set rag = Target
For Each rag1 In rag
a = rag1.Value
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> ActiveSheet.Name Then
a = a + 1
ws.Range(rag1.Address) = a
End If
Next
Next
End Sub