excel:在VBA编程中想利用单元格里面的公式怎么用?
发布网友
共2个回答
热心网友
如果是处理自动筛选后的数据，有示例：
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
热心网友
B1单元只计算不列出公式：
Range("B1")
=
Application.WorksheetFunction.CountIf(Range("E1:E5"),
Range("A1"))
