指定行自动填充"产品编号"和"项目编号..

tianyk

求助各位大师:表中有上万条的[小计及库存],要在[小计及库存]行中,自动填充"产品编号"和"项目编号",求宏代码?谢谢! 出入库明细 统计模板.rar (39.63 KB, 下载次数: 23)

2019-12-20 12:23 上传

点击文件名下载附件

[小计及库存]行中,自动填充[入]的"产品编号"或"项目编号".

一把小刀闯天下

Option Explicit

Sub 填充产品及项目编号()
  Dim i, j
  Application.ScreenUpdating = False
  For i = 7 To Cells(Rows.Count, "a").End(xlUp).Row
    If InStr(Cells(i, "a").Value, "【小计及库存】") Then
      For j = 3 To 4
        If Len(Cells(i - 1, j).Value) > 1 Then
          Cells(i, j).Value = Cells(i - 1, j).Value
        Else
          Cells(i, j).Value = Empty
        End If
      Next
    End If
  Next
  Application.ScreenUpdating = True
End Sub

tianyk

一把小刀闯天下 发表于 2019-12-20 12:41
Option Explicit

Sub 填充产品及项目编号()

谢谢"一把小刀闯天下!"帮助.完美解决!