作者:乔山办公网日期:
返回目录:excel表格制作
关键百代码度如下专:属
for i=2 to range("A65536").end(3).row
if cells(i,"D")="" then
cells(i,"E")=""
else
cells(i,"E")=cells(i,"D")+10
end if
next i
B2 =IF($A$2>=ROW(A2)-1,ROW(A2)-1,"")
将B2的公式往下拖拉到你认为合理的地方(视你N值可能出现的最大值而定)即可
EXCEL表的知单元格区域是一个二维数道组 dim arr arr=Sheet3.Range("D7:D9") '这时的arr得到的是二维数组 '你要转换成1维数组,先声专明一个动态数组再重定义为属1维数组 dim brr() redim brr(1 to ubound(arr)) '再重新将二维转一维 for i = 1 to uboun...
for each cell in columns(1).cells
cell.value=cell.row
next