用EXCEL宏计算一列数据的结果

发布网友发布时间：2022-04-29 09:41

共2个回答

热心网友时间：2022-06-25 15:44

举例说明，自己修改
i＝2
for
i＝2
to
65536
cells(i,2)="XXXXXXXXXX"
'XXX按自己的要求填
next
i

热心网友时间：2022-06-25 15:44

设置B列第二行
到
A列有数据的最后一行的公式。
Sub
A2()
Range("B2:B"
&
Range("A65536").End(xlUp).Row).Formula
=
"=VLOOKUP(A2,Group!$A:$C,3,0)"
'如果你只是需要结果而不需要保留公式，就把下面两句去掉注释。否则使用上面一句即可
'Range("B2:B"
&
Range("B65536").End(xlUp).Row).Copy
'Range("B2:B"
&
Range("B65536").End(xlUp).Row).PasteSpecial
xlPasteValues
End
Sub
B列整列设置公式，一般不用整列吧？不过你问的是整列，顺便给你写了
Sub
A2()
Columns("B").Formula
=
"=VLOOKUP(A2,Group!$A:$C,3,0)"
'如果你只是需要结果而不需要保留公式，就把下面两句去掉注释。否则使用上面一句即可
'Columns("B").Copy
'Columns("B").PasteSpecial
xlPasteValues
End
Sub