求助高手们，如何提取每日前10%的数据

tv587n

excel里面是7.1-8.31日成交的债券数据，数据已经按交易时间和YTM加权均排好序了。现在需要给出每一天“YTM加权均”前10%的债券的列表（比如说7月3号有218个数据，需要提取前22个数据行）。用函数貌似没法做，想请教一下大家应该怎么写vba代码，多谢多谢！

chentonny

先按日期分割，读入数组。再计算数组的UBOUND，再乘以0.1取输入数据数量。

一把小刀闯天下

'自己设置一下日期列格式（e列）

Option Explicit

Sub test()
  Dim arr, i, j, k, kk, m, cnt
  With Sheets("排序")
    arr = .Range("a3:d" & .Cells(Rows.Count, "a").End(xlUp).Row + 1)
  End With
  For i = 1 To UBound(arr, 1) - 1
    For j = i To UBound(arr, 1) - 1
      If arr(j, 1) <> arr(j + 1, 1) Then
        cnt = Round((j - i + 1) * 0.1, 0)
        If cnt > 0 Then
          For k = i To i + cnt - 1
            m = m + 1
            For kk = 1 To UBound(arr, 2): arr(m, kk) = arr(k, kk): Next
          Next
        End If
        i = j: Exit For
      End If
  Next j, i
  With Sheets("前10%债券").[e3]
    .Resize(Rows.Count - 2, UBound(arr, 2)).ClearContents
    If m > 0 Then .Resize(m, UBound(arr, 2)) = arr
  End With
End Sub

tv587n

chentonny 发表于 2018-8-21 19:18
先按日期分割，读入数组。再计算数组的UBOUND，再乘以0.1取输入数据数量。

请问怎么按日期分割呢？

tv587n

一把小刀闯天下 发表于 2018-8-21 19:21
'自己设置一下日期列格式（e列）

Option Explicit

  非常感谢您的回复！新手对代码不太熟练，有一些疑问，烦请您解答解答。1.读入数组确定行数时用了.End(xlUp).Row + 1，为什么要加1呢？（后面循环的时候For i = 1 To UBound(arr, 1) - 1 好像又把1扣掉了？）；2. j确定的貌似是每个日期的最后一行吧（  If arr(j, 1) <> arr(j + 1, 1)  ），那为什么提数据的时候k是从i开始的而不是i+1？谢谢~      

excelvlookup

Sub aa()
rw = Sheets("排序").Cells(Rows.Count, 1).End(3).Row + 1
ar = Sheets("排序").Range("a3:d" & rw)
ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
q = 0
For i = 1 To UBound(ar) - 1
    s = s + 1: n = n + 1
    For j = 1 To UBound(ar, 2)
        br(s, j) = ar(i, j)
    Next
    If ar(i, 1) <> ar(i + 1, 1) Then
        n = Round(n * 0.1, 0)
        If n > 0 Then s = n + q: n = 0: q = s
    End If
Next
Sheets("前10%债券").[e3].Resize(s, UBound(ar, 2)) = br
End Sub

iwangyi

seLeCt tOP 10 percenl--------

一把小刀闯天下

tv587n 发表于 2018-8-21 22:08
非常感谢您的回复！新手对代码不太熟练，有一些疑问，烦请您解答解答。1.读入数组确定行数时用了.End(x ...

1、为了方便写代码，也可以不+1但代码写起来会麻烦一点

2、i是每个数据段的开始行，所以要从i开始取数，实际行数为j-i+1，自己理解一下