如何創建動態數組循環訪問列表並根據條件對數值進行彙總

下面我列出了「ID」數字及其關聯的「數字」及其「數值」。我試圖創建一個子函數來創建一個動態數組，它收集所有具有等於和小於30的「數值」的「值」。填充數組後，將其合併並置於標題爲「30或更少」。我一直在嘗試使用VBA做這件事，但沒有運氣。我已經閱讀了一堆帖子和文件，告訴我如何做到這一點，但我無法理解它。有人能告訴我如何完成這件事。它使我瘋狂，我相信它簡單，我最終希望擴大這個範圍，以便對「數字」進行相同的處理，這些數字大於30但小於60，等等。謝謝如何創建動態數組循環訪問列表並根據條件對數值進行彙總

ID Number Value 
    0 60  100 
    1 31  101 
    2 12  102 
    3 30  103 
    4 21  104 
    5 60  105 
    30 or less

來源

2016-03-07 Haim Solomon

這可以使用SUMIF（）或SUMIFS（）的公式來完成。是否有VBA的理由？ –

請發佈您迄今爲止編寫的VBA代碼。如果您還沒有任何VBA代碼，那麼您可能需要查看以下解釋VBA編程和數組[適用於初學者]（http://www.homeandlearn.org/index.html）的網站：http： //www.homeandlearn.org/excel_vba_and_arrays.html – Ralph

@ScottCraner我在VBA srcip中需要這個，因爲我不知道我要搜索數字<30條件的區域有多大。我希望excel告訴用戶每個ID在這個數字<30條件下的總值是多少。這個例子很簡單，因爲我正在用它來練習一個更大的問題。我將pst的代碼是迄今爲止我寫的實際宏。循環是我嘗試讓循環做某事的失敗嘗試。我試圖做一些簡單而失敗的事情。請幫助 –

嘗試粘貼到VB中的新模塊。

這假定你的原始數據是Sheet(1)和排序的數據將在一個新的空白工作表Sheet(2)

Sub AddNumbers() 
Dim RowNo, ColNo As Long 

'Skip Header Row 
RowNo = 2 

    Do Until Sheets(1).Cells(RowNo, 1) = "" 

     If Sheets(1).Cells(RowNo, 2) <= 30 Then 
     Sheets(2).Cells(1, 1) = "30 or less" 
     ColNo = 1 
     Sheets(2).Cells((Sheets(2).Cells(Rows.Count, 1).End(xlUp).row + 1), ColNo) = Sheets(1).Cells(RowNo, 3) 

     ElseIf Sheets(1).Cells(RowNo, 2) > 30 And Sheets(1).Cells(RowNo, 2) <= 60 Then 
     Sheets(2).Cells(1, 2) = "Between 30 and 60" 
     ColNo = 2 
     Sheets(2).Cells((Sheets(2).Cells(Rows.Count, 2).End(xlUp).row + 1), ColNo) = Sheets(1).Cells(RowNo, 3) 

     ElseIf Sheets(1).Cells(RowNo, 2) > 60 And Sheets(1).Cells(RowNo, 2) <= 90 Then 
     Sheets(2).Cells(1, 3) = "Between 60 and 90" 
     ColNo = 3 
     Sheets(2).Cells((Sheets(2).Cells(Rows.Count, 3).End(xlUp).row + 1), ColNo) = Sheets(1).Cells(RowNo, 3) 

     End If 

     RowNo = RowNo + 1 

    Loop 

    ' Add Subtotals 

    ColNo = 1 
    Do Until Sheets(2).Cells(1, ColNo) = "" 
    Sheets(2).Cells((Sheets(2).Cells(Rows.Count, ColNo).End(xlUp).row + 1), ColNo).Formula = "=SUM(" & Col_Letter(ColNo) & "2:" & Col_Letter(ColNo) & (Sheets(2).Cells(Rows.Count, ColNo).End(xlUp).row) & ")" 
    Sheets(2).Cells((Sheets(2).Cells(Rows.Count, ColNo).End(xlUp).row), ColNo).Font.Bold = True 
    ColNo = ColNo + 1 
    Loop 

End Sub 

Function Col_Letter(lngCol As Long) As String 
Dim vArr 
vArr = Split(Cells(1, lngCol).Address(True, False), "$") 
Col_Letter = vArr(0) 
End Function

來源

2016-03-07 21:28:45

如何創建動態數組循環訪問列表並根據條件對數值進行彙總

回答

相關問題