单元格 每次 变化 内容 都被 记录 在其他 表格中

注意：

1.单元格变化是指：每次 单元格 被点击 就算变化

2.代码写在 当前工作表，结果保存在表b中

3.表b中 的 填充方式为 向右填充

4.当前工作表 响应填充命令 的 是某个列区域

 

 

 完整代码：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 2  
If Target.Address = "$A$2" Then  'A2表示 待变化 单元格
 4 　　With Sheets("b")             'b'表示 选择 表格名称为b 的 表格 进行操作
　　R = .Cells(Rows.Count, 2).End(3).Row + 1  '表示从 第2 行开始
　　.Cells(R, 1) = Now  'Now表示显示 发生变化时  的时间 ，1表示显示在第1列
　　.Cells(R, 2) = Application.Transpose([C2]) '2表示显示在第二列，C2表示 要被显示的 内容
　　.Cells(R, 3).Resize(1, 4) = Application.Transpose([B2:B5])
　　'3表示 显示在第三列，.Resize(1, 4)表示从第3列开始，向右填充4次。
　　'Application.Transpose([B2:B5])表示第一次填充B2单元格内容，第二次填充B3单元格内容，依此类推。
11 　　End With
End If
End Sub