Loop через столбец

Question

Я пытаюсь пройти через столбец в excel с помощью VBA, у меня проблема, потому что «W2» жестко закодирован в функции, так как я перебираю электронную таблицу, W2 необходимо изменить на W3, W4 W5 и т. Д.

ниже - мой код.

Function GetTopDrTS(L_NumCellsFromEdge As Integer, L_NumOfCells As Integer) As Double 
    'Get Top Drive Side Triple Spot calculation 

    Dim val As Double 
    val = 0 

    'Select Cell W2 to set starting position 
    Range("W2").Select 

    'Read in the cells we need to average 
    Dim i As Integer 
    For i = 0 To L_NumOfCells - 1 
    val = val + Selection.Worksheet.Cells(Selection.Row, _ 
       Selection.Column + EdgePos + L_NumCellsFromEdge + i).Value 
    Next i 

    GetTopDrTS = val/L_NumOfCells 

end function 

Answer 1

Попробуйте это:

'Read in the cells we need to average 
    Dim i As Integer 
    For i = 0 To L_NumOfCells - 1 
    range("W" & i).select 
    val = val + Selection.Worksheet.Cells(Selection.Row, _ 
       Selection.Column + EdgePos + L_NumCellsFromEdge + i).Value 
    Next i 

Answer 2

Я не знаю, почему вы должны цикла вообще. Ваша функция просто вычисляет среднее значение, поэтому вместо этого используйте функцию Average. Это уменьшает вашу функцию в одну строку:

Function GetTopDrTS(L_NumCellsFromEdge As Integer, L_NumOfCells As Integer) As Double 

    GetTopDrTS = WorksheetFunction.Average(Range("W2:W" & L_NumOfCells + 1)) 

End Function 

Теперь, это точно одна строка, я бы избавиться от функции целиком и использовать только WorksheetFunction везде, где обычно называют GetTopDrTS.

Обратите внимание, что из вопроса или кода неясно, что должны быть EdgePos и L_NumCellsFromEdge - если они предназначены для замены жестко закодированного столбца «W», было бы довольно легко заменить его на смещение.