VBA引用单元格

发布网友发布时间：2023-08-21 03:42

共3个回答

热心网友时间：2024-12-15 03:07

以计算男，女人数为列，说明IF写法及单元格表示法
如E1单元格，可表示为range("E1")也可表示为cells(1,5)
用变量来表示：range("E"&j) 或cells(j,5)
下面说明IF的使用来计算男女人数
sub 计数 ()
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的用法，希望对您有所帮助。

热心网友时间：2024-12-15 03:07

可以直接使用cells（r，c）引用单元格，用数字来表示行数和列数
比如a5单元格：cells(5,1)
E列是第5列，则：cells(j,5)
if语句：
if cells(j,5).value="男" then
'条件成立的语句放这里……
else
'条件不成立的语句放这里……
end if
------
字符串要用英文双引号括起来："男"

热心网友时间：2024-12-15 03:08

Dim j As Integer
If Range("E" & j).Value = "男" Then

或者
Dim j As Integer
Dim E As Range
Set E = Range("E" & j)
If E.Value = "男" Then