For i = 45 To [L46].End(1).Row 谁能帮我解释下
来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/09/20 09:08:50
For i = 45 To [L46].End(1).Row 谁能帮我解释下
具体程序如下:
Sub Macro9()
Sheets("PP&BS(按胶系)").Select
On Error Resume Next
Dim i, j, c
For i = 45 To [L46].End(1).Row
c = Cells(i, 256).End(1).Column
Cells(i, 5) = ""
Cells(i, 6) = ""
Cells(i, 7) = ""
Cells(i, 8) = ""
Cells(i, 9) = ""
Cells(i, 10) = ""
XX = 0
YY = 0
ZZ = 0
CC = 0
BB = 0
For j = 12 To c Step 6
Cells(i, 5) = Cells(i, 5) + Cells(i, j)
Cells(i, 6) = Cells(i, 6) + Cells(i, j + 1)
XX = XX + Cells(i, j) * Cells(i, j + 2)
YY = YY + Cells(i, j) * Cells(i, j + 3)
ZZ = ZZ + Cells(i, j + 1) * Cells(i, j + 4)
CC = CC + Cells(i, j + 1) * Cells(i, j + 5)
BB = BB + Cells(i, j + 1) * Cells(i, j + 6)
Cells(i, 7) = XX / Cells(i, 5)
Cells(i, 8) = YY / Cells(i, 5)
Cells(i, 9) = ZZ / Cells(i, 6)
Cells(i, 10) = CC / Cells(i, 6)
Next
Next
End Sub
具体程序如下:
Sub Macro9()
Sheets("PP&BS(按胶系)").Select
On Error Resume Next
Dim i, j, c
For i = 45 To [L46].End(1).Row
c = Cells(i, 256).End(1).Column
Cells(i, 5) = ""
Cells(i, 6) = ""
Cells(i, 7) = ""
Cells(i, 8) = ""
Cells(i, 9) = ""
Cells(i, 10) = ""
XX = 0
YY = 0
ZZ = 0
CC = 0
BB = 0
For j = 12 To c Step 6
Cells(i, 5) = Cells(i, 5) + Cells(i, j)
Cells(i, 6) = Cells(i, 6) + Cells(i, j + 1)
XX = XX + Cells(i, j) * Cells(i, j + 2)
YY = YY + Cells(i, j) * Cells(i, j + 3)
ZZ = ZZ + Cells(i, j + 1) * Cells(i, j + 4)
CC = CC + Cells(i, j + 1) * Cells(i, j + 5)
BB = BB + Cells(i, j + 1) * Cells(i, j + 6)
Cells(i, 7) = XX / Cells(i, 5)
Cells(i, 8) = YY / Cells(i, 5)
Cells(i, 9) = ZZ / Cells(i, 6)
Cells(i, 10) = CC / Cells(i, 6)
Next
Next
End Sub
看帮助Range.End 属性
End 属性适用于Range 对象描述返回 Range 对象,该对象代表包含源区域的区域结尾处的单元格.等同于按键 END+上箭头键、END+下箭头键、END+左箭头键或 END+右箭头键.只读.句法expression.End(Direction)expression必选.该表达式返回 Range 对象.DirectionLong 类型,必选.移动的方向.可为下列 XlDirection 常量之一:xlToLeft,xlToRight,xlUp或xlDown.
所以,1 就是 xlToLeft.
再问: Range.end属性我了解, 但原来设置是For i = 45 To [L46].End(3).Row 没有任何反应,后来我改成For i = 45 To [L46].End(3).Row 程序才开始运算,按我原来的理解对于行的定义一般都用XLUP或XLDOWN,所以不是太理解,还请解答。
End 属性适用于Range 对象描述返回 Range 对象,该对象代表包含源区域的区域结尾处的单元格.等同于按键 END+上箭头键、END+下箭头键、END+左箭头键或 END+右箭头键.只读.句法expression.End(Direction)expression必选.该表达式返回 Range 对象.DirectionLong 类型,必选.移动的方向.可为下列 XlDirection 常量之一:xlToLeft,xlToRight,xlUp或xlDown.
所以,1 就是 xlToLeft.
再问: Range.end属性我了解, 但原来设置是For i = 45 To [L46].End(3).Row 没有任何反应,后来我改成For i = 45 To [L46].End(3).Row 程序才开始运算,按我原来的理解对于行的定义一般都用XLUP或XLDOWN,所以不是太理解,还请解答。
For i = 45 To [L46].End(1).Row 谁能帮我解释下
Dim x&,r&,k&,i& r = Range("G65536").End(xlUp).Row For x = 2
VBA中ran.endrow = ran.Row - 1 + ran.Rows.count,谁帮我解释下,
a = 2 To [a65536].End(xlUp).Row
I WANT TO SAY:END FOR MYSELF!
vb循环变量 For i = 1 To i 这里面i的作用是什么For后面的和To后的都解释下
a = .[H65536].End(xlUp).Row 是什么意思
FOR i:=2 to trunc(sqrt(a)) do是什么意思,解释下,谢谢
在matlab中,建立M文件:for i=1:m for j=1:n a(i,j)=1/(i+j-1); end end
n = Sheets(j).[a65536].End(xlUp).Row
VBA Arr = .Range("A1:C" & .[A65536].End(xlUp).Row)
帮忙解释下这个公式的意思:=INDIRECT("4月"&ROW(A2)&"日!A2")