有一串代码不知道什么意思，想请大神帮忙解释下

送到

Dim i&, r%, arr1(), ks, js  '不理解什么意思
For i = 1 To Cells(65536, 1).End(3).Row
    If InStr(Cells(i, 1), "#") Then '不理解什么意思
    r = r + 1
    ReDim Preserve arr1(1 To r)  '不理解什么意思
   arr1(r) = i  '不理解什么意思
    End If
    Next
For i = 1 To r
    If i <> r Then
      js = arr1(i + 1) - 3  '不理解什么意思
      Else
      js = UBound(arr1)  '不理解什么意思
      End If
      ks = arr1(i) + 2
      ks = arr1(i) + 2
      Cells(js, 1).Formula = "=max(r" & ks & "c:r[-1]c)"
      Cells(js, 2).Formula = "=min(r" & ks & "c:r[-1]c)-7"

abc123281

建议从基础学习    学到一定程度   自然就明白了