[已解决]求助个vba

haeng

        a        b       c        d        e        f         g         h        i        j
1     458             14      658    8       012     369     4       7       25
2
从c1到j1,如果哪格跟a1没有相同的数字就把哪格的数据清空,(例f1跟a1就沒有相同数子,所以f1格数据清空掉)

最佳答案

月排行榜 / 总排行榜

wp8680

2015-11-29 15:07

for each rg in range("c1:j1")
k=false
for n= 1 to len(range("a1"))
if instr(rg,mid(range("a1"),n,1)>0 then k=true
next n
if k=false then rg.clear
next rg

跳转到最佳答案楼层

wp8680

for each rg in range("c1:j1")
k=false
for n= 1 to len(range("a1"))
if instr(rg,mid(range("a1"),n,1)>0 then k=true
next n
if k=false then rg.clear
next rg