对数组进行排序并粘贴到不同的列

时间:2017-07-06 18:34:11

标签: excel-vba vba excel

所以我有这个excel表,我试图组织。我可以让它按照我想要的方式使用单元格功能,但我似乎无法弄清楚如何使用宏来做同样的事情。

基本上我的问题是这个。我有两列,A和B.列A由人的名字(同名可以重复)和代码组成,其中列B是时间。它的一个例子是这样的:

 KEVIN        11:36

12345         11:36

 BOB          11:54

23466         11:54

 BOB          12:53

54862         12:54

67892         13:53

ERIC          13:53

45732         13:53

 KEVIN        13:53

14349         13:54

ERIC          14:19

53682         14:20

我试图编写一个读取两列(A和B)的宏,并根据名称排列代码和时间。所以我最终会得到BOB的D列,它只包含跟随他的名字的代码(23466),E列是与代码相关的时间(11:54),ER列代码的F列和列G用于相关时间等 我在单元格中的当前函数是:

=IF(A4=$D$2,INDEX(A:B,MATCH(D4,D:D,0)+R4,MATCH(D4,4:4,0)-3),)

我把D2记为KEVIN(要进行名称比较)。我的问题是,当我有一个100x100的数组所有加载单元格内的类似功能时,这需要太长时间才能加载。我根本不知道如何做到这一点,这就是我所知道的

Sub Method2()
    Dim rng1 As Range
    Dim strSearch As String
    strSearch = "ION"
    Set rng1 = Range("A:A").Find(strSearch, , xlValues, xlWhole)

如果有人可以帮助增加我拥有的东西,我将不胜感激。感谢

0 个答案:

没有答案