那位神解释一哈下面两vba代码啊,小弟万分感谢,小弟分不多,以后有机会报答大恩.Subcaculatestock()Dimcal,difAsIntegerFori=2to1201Step10Forj=1to10Fork=1to10IfCells(i+j-1,3)=Cell(i+k-1,10)ThenCe

Question

那位神解释一哈下面两vba代码啊,小弟万分感谢,小弟分不多,以后有机会报答大恩.
Sub caculatestock()
Dim cal,dif As Integer
For i = 2 to 1201 Step 10
For j = 1 to 10
For k = 1 to 10
If Cells(i + j - 1,3) = Cell(i + k - 1,10)Then
Cells(i + k - 1,13) = Cells(i + j - 1,3)
Cells(i + k - 1,14) = Cells(i + k - 1,11) - Cells(i + j - 1,4)
End If
Next k
Next j
Next i
End Sub
---------------------------------------------
Sub delt()
Dim cal,dif,N As Integer
N = 1
100 For i = i + N To 700
cal = 1
dif = 1
If Cells(i,2) > 0 Then
dif = 1
End If
For j = 1 To 70
If Cells(i + j,1) = Cells(i,1)Then
cal = cal + 1
If Cells(i + j,2) > 0 Then
dif = dif + 1
End If
End If
Next j
N = cal
Cells(i,4) = Cells(i,1)
Cells(i,5) = dif/cal
Exit For
Next
For N = N To 70
GoTo 100
Next
End Sub
End Sub

Answer 1

　　给你 讲一个吧 后面的和这个 大概差不多
　　Sub caculatestock()
　　Dim cal,dif As Integer '定义变量
　　For i = 2 to 1201 Step 10 '外层循环 i 从2 到 1201 间隔为10
　　For j = 1 to 10 ' 中层循环 j 1 ->10
　　For k = 1 to 10 ' 内循环 k 1 ->10
　　If Cells(i + j - 1,3) = Cell(i + k - 1,10)Then '循环判断条件 如果excel表中第i+j-1行 第3
　　列 值 等于 excel表中第i+k-1行 第10列
　　Cells(i + k - 1,13) = Cells(i + j - 1,3) ' 令 excel表中第i+j-1行 第3列 等于 excel表
　　中第i+k-1行 第13列
　　Cells(i + k - 1,14) = Cells(i + k - 1,11) - Cells(i + j - 1,4) '令 excel表中第i+k-1行 第11列 减
　　excel表中第i+j-1行 第4列 的差值 等于
　　excel表中第i+k-1行 第14列
　　End If
　　Next k '下一个K 值
　　Next j '下一个j 值
　　Next i '下一个i 值
　　End Sub
　　依次 进行循环
　　下面的 同样的 原理