2018年1月27日

小班编号2

摘要： Sub xyf() Dim arr As New CollectionDim lindi_arr As New Collectionmaxnban = 0maxban = 0i = 1Do While Cells(i, 1).Value <> ""arr.Add Cells(i, 1).ValueI 阅读全文

posted @ 2018-01-27 22:26 猪猪一号 阅读(175) 评论(0) 推荐(0)

2018年1月小班排序方法

摘要： Sub xyf() Dim arr()Dim arr1(1 To 3000) arr = Range("f1:f600") // 需要排序的列arr = Application.WorksheetFunction.Transpose(arr)arrconut = UBound(arr) b = 1F 阅读全文

posted @ 2018-01-27 19:42 猪猪一号 阅读(166) 评论(0) 推荐(0)

导航