公式或宏將長列表（多列）劃分爲基於列中條件的單獨列表

Question

我有一個包含前兩列作爲潛在標識符的數據日誌列表，如Flickr圖片中的簡短形式所示（ noobie - 不能張貼圖片）：

http://farm8.staticflickr.com/7036/7114053281_30bf57300d.jpg

我已經排序基於價值列B.我想可以這麼長的數據集分成四列的分隔列表，用包含一個「Spot ID」的單個列表，如下所示：

http://farm9.staticflickr.com/8160/6967974902_7f84b57e46.jpg

列A「Frame＃」並不重要，但是由於我想知道是否可以使宏變得更容易運行，所以我將其留在了原來的位置。

我必須處理大量這樣的數據，所以我想了解如何修改宏以將單獨的列表發送到不同的工作表，而不是不同的列。

如果您想知道，Frame＃指的是一個視頻顯微圖框，並且斑點ID是指被跟蹤的特定膠體顆粒。 X Pos和Y Pos分別是X和Y座標。

任何幫助，非常感謝。

nan0guy

Answer 1

試試這個，它使用一個簡單的自動篩選得到的每一行與獨特的SPOT ID，它不會做onlyh就是保持......... ..排在中間，希望這實際上並不重要。

Option Explicit 

Sub SplitColumns() 
Dim c As Range, wsNEW As Worksheet, NC As Long, LR As Long 
Dim List As New Collection, Item As Variant 

With ActiveSheet 
    .AutoFilterMode = False  // turn autofilter off 
    LR = .Range("A" & .Rows.Count).End(xlUp).Row  //count cells in A 

    On Error Resume Next  //on error, continue on next line 
    For Each c In .Range("B:B").SpecialCells(xlConstants, xlNumbers) //Help here? 
     //doing something to the values in column B (the Spot IDs) 
     List.Add c.Value, CStr(c.Value)  //Make a list of values in column A in c 
    Next c  //For-next loop 
    On Error GoTo 0 

    .Rows(1).AutoFilter  //turn autofilter on? 
    Set wsNEW = Sheets.Add  //add a new sheet 
    NC = 1  //counter for columns in new sheet 

    For Each Item In List  //exactly, but where does Item come from? 
     .Rows(1).AutoFilter Field:=2, Criteria1:=Item //autofilter using Item as criteria 
     .Range("B1:D" & LR).Copy wsNEW.Cells(1, NC) //copy everything in the range to new column in new sheet 
     NC = NC + 3  //iterate column by 3 
    Next Item  // for-next loop 

    .AutoFilterMode = False  // turn autofilter off 
End With 

End Sub