[求助]请问新插入一行，如何能自动添加序号？

ZW_WF · 发表于 2010-5-17 19:07

可不可以解释一下，怎么做的啊？看不懂也

hsyzg · 发表于 2010-5-17 19:52

原帖由 james.wan 于 2005-8-23 17:56 发表
95931

怎么弄出来的？看了半天没弄懂。

yizhbi · 发表于 2010-5-18 11:44

插入了不能自动填充啊。。。

yutiansister · 发表于 2010-5-18 13:07

单元格A1中写入公式：=IF(B1="","",1)
单元格A2中写入公式：=IF(B2="","",A1+1)
单元格A3开始以下，复制单元格A2。
之后，在B列填入数值时，A列（存在公式）就会自动编号。

以上方法中，B列不能跳开插入。

finber · 发表于 2010-5-18 13:33

下载了，效果很好，就是不知道怎么做的？郁闷啊~~~~~~~

zhplay · 发表于 2010-5-18 13:59

确实非常好用，能请问James一下，这表是怎么做出来的吗？我半天也看不出门道，多谢啦！

acecrazy · 发表于 2010-5-18 14:11

VBA
For i = 2 To [a65536].End(xlUp).Row
Range("a" & i) = Range("a" & i).Row - 1
Next i

finber · 发表于 2010-5-19 10:17

Private Sub Worksheet_selectionChange(ByVal Target As Range)

For i = 2 To [a65536].End(xlUp).Row
Range("a" & i) = Range("a" & i).Row - 1
Next i

End Sub
谢谢james.wan

y111j87 · 发表于 2011-8-22 10:21

插入一行他就自动保存了？不能撤销怎么办。。=。= 插错了再删除行么？

fjzjm · 发表于 2011-8-22 10:47

本帖最后由 fjzjm 于 2011-8-22 10:48 编辑

我也上传一个。

dfgjt.rar (12.52 KB, 下载次数: 76)

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

[求助] [求助]请问新插入一行，如何能自动添加序号？

回复 12楼 james.wan 的帖子