excel:在VBA編程中想利用單元格裏面的公式怎麽用？

dim

sx

as

range,

ar

as

range,

r

as

range,

bt

as

integer

'篩選區域變量

sub

test()

set

sx

=

activesheet.autofilter.range.specialcells(xlcelltypevisible)

for

each

ar

in

sx.areas

'逐個連續區域

for

each

r

in

ar.rows

'逐行

if

bt

then

'處理自動篩選出的行，用r.cells(1,

2)引用r行的第2列

else

'跳過標題行

bt

=

1

end

if

next

next

end

sub