VBA 2010 如何引用公式所在的单元格的地址

如果要引用公式的所有单元格A1的地址，则可以使用以下VBA

range("a1").address

由于您使用的是 VBA，因此您可能是在复制粘贴而不是引用。

可以使用“选择性粘贴”（Paste Special-Paste） 操作仅复制值，而不复制公式。 一般做法是粘贴一次（以保留数字格式），然后有选择地粘贴一次（以使用值覆盖公式）。 您可以使用录制宏来查看具体的 VBA 实现，我不会发布它**。

直接从其他 xls 编写公式，如果想做更多的更改，可以使用间接函数，但最好还是做上面的 vba。

什么是 p0 和 p1，以及您定义的 vba 变量是什么，在这种情况下，公式中无法获得其内容。

请粘贴您当前的 VBA**，并告诉我们您的想法和问题。

如果其中一个单元格 b5 或 b10 为 0 或为空，则无论是否有加号，exp 的值都是 1

你把这两个数字的变量定义为一个整数，这意味着这两个值将被四舍五入为一个整数。 这取决于您的手表外观。

您的结果均为 0，并且 b2 的值为 size，这将导致溢出错误。

如果你的公式写在单元格A1中，它将被判断如下：如果range（"a1").value="" then'空头值的处理。

else 引用非 null 值。

end if

VBA 可以通过引用单元格中的值来实现，但引用公式似乎不起作用。

如果引用一些指定的单位值，则很容易做到这一点。

男性和女性的人数以一列计算，并解释 if 书写和单元格符号。

例如，单元格 e1 可以表示为 range（"e1"） 也可以表示为 cells（1,5）。

表示为变量：range（"e"&j） 或 cells（j，5）。

下面说明如何使用IF来计算男性和女性的数量。

子计数 （）。

dim r&,x&,nan&,nv&'建立整数变量。

dim arr '创建一个数组，如果数据量很大，它会随着数组运行得更快。

r=range("e65536").end(xlup).row'计算 E 列中最后一个非空白行的行号。

arr=range("e1:e"&r).value'将 e 列中的所有数据加载到数组中。

for x=1 to ubound(arr)'构建一个从 1 到数组最大单位的循环。

if arr(x,1)="雄" then'如果是男性，请建立判断。

nan=nan+1'男性计数，如果男性，男性 +1

else'如果不是男性，则不使用，因为性别只有男性和女性，所以不使用 elseif arr（x，1）="女性" then

nv=nv+1'女性算数，如果不是男性，那么女性 +1

end if

next x'结束循环。

msgbox "雄" & nan &"人，女：" & nv & "人"'男性和女性人数的弹出提示框。 它也可以写入指定的单元格。

end sub

这里举例说明if的使用，希望对大家有所帮助。

您可以直接使用 cells（r，c） 来指代单元格，并使用数字来表示行数和列数，例如单元格 A5 中的单元格 （5,1）

e 列是第 5 列，然后是：cells（j，5）。

如果单元格（J，5）value="雄" then'条件为真的陈述是......这里

else 条件不为 true 的语句......这里

end if

字符串应用双引号括起来："雄"