小班编号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 猪猪一号 阅读(169) 评论(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 猪猪一号 阅读(161) 评论(0) 推荐(0) 编辑