用vb写也可以
真不好意思刚才说的有点问题,应该是一条直线上的9个点,然后取出他们的坐标分别存入一个数组中
第1个回答 2009-09-01
dim i%,j%,A%(8),x%.y%,k%
'假设将第5行第5列单元格周围的8个数给a(1)到a(8)
x=5
y=5
k=1
for i=x-1 to x+1
for j=y-1 to y+1
A(k)=cells(i,j)
k=k+1
next j
next i
'假设将第5行第5列单元格周围的8个数给a(1)到a(8)
x=5
y=5
k=1
for i=x-1 to x+1
for j=y-1 to y+1
A(k)=cells(i,j)
k=k+1
next j
next i