vba代码求助

darni

各位大侠，我想显示附件中的效果，代码该如何编写

多谢

蓝桥玄霜

想要一个万能代码，估计有兴趣做的人不多。

darni

蓝桥玄霜 发表于 2018-7-19 16:31
想要一个万能代码，估计有兴趣做的人不多。

是的，版主。我之前学习了一些代码，也节省了不少时间，但没有这个适用范围广。有了这个代码之后将会大大提高工作效率

darni

我写了一个代码，不过好像有点问题

darni

sub test()
a=range("a1").currentregion.columns.count+1
b=range("a1").currentregion.rows.count
c=range("h1").currentregion.rows.count
for i=2 to b
    if cells(i,a) = blank then
        for each j in range(cells(1,8),cells(c,8))
             if cells(i,2) like j  then
                  cells(i,a)=cells(j.row,9)
             end if
        next
     end if
next i
end sub
      

darni

大家帮我看看这个代码有没有什么问题