excel高手請(qǐng)進(jìn)來(lái)!

設(shè) C1 中是 aaa 數(shù)據(jù)，有VBA程序如下：

sub Find_date()

dim max_date as integer

dim i,j,k as integer

for i=1 to max_date+1

if cells(1,3) = cells(i,2)
cells(2,3)="Find at " & i
break
endif

next i

k=3

for j = 1 to max_date
if cells(2,3)=cells(j,1)
cells(k,3)=cells(j,2)
k=k+1
endif
next j

endsub

在C1中輸入一個(gè)數(shù)據(jù)，運(yùn)行此宏即可