VBA中的FIND操作

Dim srow As Integer
   Dim erow As Integer
   Call init
   srow = ssheet.Range("A1:A28").Find(What:="counter1").Row
   
   For snum = srow To 28
      If (ssheet.Cells(snum, 1) <> "counter1") Then
         erow = snum - 1
         Exit For
      End If
   Next

   Debug.Print CStr(srow) & "-------" & CStr(erow)

   Call destory

-----------------------------------------

仿照python（列表，字典）中写个数组。