當前位置:成語大全網 - 新華字典 - 關於excel VBA

關於excel VBA

亂七八糟。妳擅長於把簡單的東東復雜化吧。。直接把要求說清楚吧。。

是這樣嗎?如果A1的內容為<c i="HS765" v="Cardinal Health, Inc." />,就把A1改為HS765,在B1填上Cardinal Health, Inc.嗎?

就按我上面說的套路把問題說清楚吧。。

是HS765的就在第二列輸出v的值嗎?不是HS765的就什麽也不做下面是代碼:

sub test()

dim i,i1,i2,v1,v2

for i = 1 to 500

if cells(i,1) <> "" then

cc=cells(i,1).value

i1=instr(1,cc,chr(34),1)

i2=instr(i1+1,cc,chr(34),1)-1

if right(left(cc,i2),i2-i1) = "HS765" then

v1=instr(i2+2,cc,chr(34),1)

v2=instr(v1+1,cc,chr(34),1)-1

cells(i,2).value = right(left(cc,v2),v2-v1)

endif

endif

next i

end sub