g1 = ActiveCell.Row    '当前行号 123
g2 = ActiveCell.Column '当前列号 ABC
ix = g1 '当前行号

 '当前行数据
ai = Range("a" & ix) '当前行数据
bi = Range("b" & ix)
ci = Range("c" & ix)
di = Range("d" & ix)
ei = Range("e" & ix)
fi = Range("f" & ix)
gi = Range("g" & ix)
hi = Range("h" & ix)
ii = Range("i" & ix)

'MsgBox ai

j = Cells(Rows.Count, 10).End(3).Row  '获取BOM J列有多少行数据，统计第10列为非空的所有行的总数
k = j + 1
 ' MsgBox "'添加数据到第" & k & "行"
                
xh = k - 6  'BOM xh当前序号
 ' MsgBox "'当前序号为 " & xh
 '
Cells(k, 10) = xh
Cells(k, 11) = [ai]
Cells(k, 12) = [bi]
Cells(k, 13) = [ci]
Cells(k, 14) = [di]
Cells(k, 15) = [fi]
Cells(k, 16) = [gi]
Cells(k, 18) = [hi]
Cells(k, 19) = [ii]
 If [ei] <> "" Then
Cells(g1, 5) = [ei] - [fi]
End If

Range("b" & ix).Interior.ColorIndex = 3'选中单元格的背景色修改为红色，可以避免出库时选中的元件不能正常显示的情况

 '最后对重复的数据进行处理，显示为红色，开始 - 条件格式 - 新建规则 - 对重复值添加规则