数据录入序号生成求助

天边2021 · 发表于 2023-5-21 08:28

如图，对表中E2单元格往下区域的数据录入在其右侧自动生成序号，（录数顺序号，E列录完数据后按回车键生成），可否实现，请大家帮忙看看

3190496160 · 发表于 2023-5-21 09:14

Private Sub Worksheet_Change(ByVal T As Range)
If T.Row > 2 And T.Column = 5 Then
If T.Count > 1 Then End
If T.Value = "" Then End
If T.Offset(, 1) <> "" Then End
r = Cells(Rows.Count, 6).End(xlUp).Row
ma = Application.Max(Range("f3:f" & r))
T.Offset(, 1) = ma + 1
End If
End Sub

3190496160 · 发表于 2023-5-21 09:15

3190496160 · 发表于 2023-5-21 09:16

录数序号生成求助.rar (15.43 KB, 下载次数: 8)

天边2021 · 发表于 2023-5-21 10:41

3190496160 发表于 2023-5-21 09:16

非常感谢！

天边2021 · 发表于 2023-5-21 11:05

天边2021 发表于 2023-5-21 10:41
非常感谢！

有点遗憾当E列数据清空时 F列序号还在，可否实现，E列数据清空时对应的F列也同时被清空

nicleyuan · 发表于 2023-5-21 15:24

红字加在 end 前面

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

[求助] 数据录入序号生成求助

评分