全部答案

2013-11-24 11:04:46

•   我一本正经地胡说一下吧。 
  刚好我这之前做了一个系统 里面有段程序  你把它当宏用
  Sub test()
      Dim n
      Dim arr() As Integer 
      Dim i As Long
      Dim j As Long
      Dim r As Long
   
      r = Range("A65536")。
    End(xlUp)。Row
      n = Range("A1")
      j = 0
      For i = 1 To r
          If Cells(i, 1) = n Then
              ReDim Preserve arr(j)
              arr(j) = i
              j = j + 1
          Else
              If UBound(arr) > 0 Then  
                  Range("C1")。
    Formula = "=SUM(cells(arr(0),2):cells(arr(UBound(arr)),2 ))" ’假设数据显示在c列
              End If
              Erase arr()   
              j = 0         
              n = Cells(i, 1)
              ReDim Preserve arr(j)
              arr(j) = i
              j = j + 1
          End If
      Next i
      Erase arr()
  End Sub。
    

  全部
  

  唐***

  2013-11-24 11:04:46

  70 16 评论

  分享
  提交评论