EXCEL中，我想用VBA代码实现 E列/ F列/ G列/H列I列数据有条件输入，我的将再给100分的表示感谢

Question

前言：我原来的EXCEL表格行数很多，但下一行和上一行相同的地方也比较多，完全不同的只有 J列 和 k列，只有这两列的数据每行都要填，（其它大多数的数据基本上都是自动生）。（备注：K列和J列的数据互相独立,没有关联性），原来用函数公式执行以下功能，但因为行数太多，表格反应非常慢，所以想换成VBA来解决）我的数据从第三行开始，6万行结束
我想要的是：当K列的单元格是《空白，也就是原来K列的单元格里面没有数据在里面》时候，在K列输入数据后 【E列/ F列/ G列/H列I列】分别同时达到以下功能（这几列完全一样,下面我以E列为例,来说明代码要求）。（备注：如果k列原来有数据，只是改动，所有已经输入的数据都不因为k列数据变化而变化，【本代码只有在k列为空白，输入数据才有效】）：
1）. 当在K列输入数据后，将会有两种情况〈下面以在K4单元格输入数据为例〉：
1.如果此时C4等于C3时,则K4输入一个数据后,E4等于E3。
2.如果此时C4不等于C3时,则K4输入一个数据后,E4内如果没有数据，保持空白.如果E4内以经有了数 据,保持原有数据。<E列内数据允许修改善>
【本代码只有在k列为空白时，输入数据才有效,如果只是修改K列数据,则对E列无效,同行E列单元格内无论是空白还是有数据都要保持不变】。
2）.同样 F列 G列 H列 I列和上面的要求完相同 感谢您看完我的提问.如果解决，不胜感激.

【图例仅供参考】

Answer 1

修改了程序，是不是这样？试一下。
Private Sub Worksheet_Change(ByVal Target As Range)
H = Target.Row: L = Target.Column
Hs = 3: He = Cells(60000, 3).End(xlUp).Row
If He < Hs Then
He = Hs
Else
He = He + 1
End If
Lb = 11
Columns("D:D").NumberFormatLocal = "yyyy/m/d h:mm;@"
Columns("B:B").NumberFormatLocal = "@"
If Hs <= H And H <= He And L = Lb Then
If H = Hs Then
If Cells(H, 1) = "" Then Cells(H, 1) = 1
If Cells(H, 2) = "" Then Cells(H, 2) = "00001"
If Cells(H, 3) = "" Then Cells(H, 3).Select
If Cells(H, 4) = "" Then Cells(H, 4) = Now
Else
If Cells(H, 1) = "" Then Cells(H, 1) = H - Hs + 1
If Cells(H, 3) = "" Or (Cells(H, 3) = Cells(H - 1, 3)) Then
Cells(H, 2) = Cells(H - 1, 2)
For LL = 3 To 9
Cells(H, LL) = Cells(H - 1, LL)
Next
Else
编号 = Val(Cells(H - 1, 2))
For I = 1 To 5 - Len(LTrim(Str$(编号)))
订单编号 = 订单编号 + "0"
Next
订单编号 = 订单编号 + LTrim(Str$(编号 + 1))
Cells(H, 2) = 订单编号
Cells(H, 4) = Now
End If
End If
End If
End Sub

追问

我把两段比较了半天，也没有看出来，我要的ID号用行号减2是哪一句代码呀？

追答

If Cells(H, 1) = "" Then Cells(H, 1) = H - Hs + 1
H: 当前行号，假设H=4
Hs：记录的起始行号，本程序Hs=3，如果调整记录起始行号时，直接对Hs赋值即可，
这样当前ID=H-Hs+1=4-3+1=2

来自：求助得到的回答

Answer 2

把sheet1发过来，我试验一下，今晚不一定能完成，请理解
发邮箱：xymath@qq.com

Answer 3

给我发邮件吧！我来帮你：
ouyangff@qq.com