excel 表格中。

显示全部楼层 · 2012-6-2 15:07:35

使用前请先设置宏安全性为低菜单栏工具---宏--安全性---低工作表内按Alt+F11, 视图----代码窗口 ----把如下复制进去，按Alt+F11返回原表 , 即可Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row = 1 Then
t = Cells(65536, 2).End(xlUp).Row + 1
If Cells(1, 1)Cells(t - 1, 2) Then Cells(t, 2) = Cells(1, 1)
Cells(1,...

千问 · 2012-6-2 15:07:35

Private Sub Worksheet_Change(ByVal Target As Range)If Target.Address = "$A$1" Thenx = Cells(65536, 2).End(xlUp).Row + 1Cells(x, 2) = [a1]End IfEnd Sub...

千问 · 2012-6-2 15:07:35

有难度，研究中……...