我有一個excel工作簿,其中最多有6個數據集,但數據集中的數據長度或數量是可變/動態的。我希望能夠在所有的A-Axis_Disp列中找到從0開始的最遠的值(見下圖)。我認爲我的代碼是正確的,但不知道如何完成它。任何提示/幫助將不勝感激。 TIA。 在動態範圍內從0找到最大數字VBA
這裏是我的代碼:
Sub FindFurthestNoFromZero()
Dim iRng As Range
Dim Rng1 As Range
Dim Rng2 As Range
Dim Rng3 As Range
Dim NewRng1 As Range
Dim val As Variant
Dim B As Integer
Dim Dispws As Worksheet
Set Dispws = Sheets("Disp_&_Result_Calc")
Set iRng = Dispws.Range(Dispws.Cells(1, 1), Dispws.Cells(1, Dispws.Cells(1, Columns.Count).End(xlToLeft).column))
B = 0
Do Until B = Sheets("Hidden").Range("G2").Value + 1
For Each cel In iRng
If cel.Value = "A-Axis_Disp" Then
Set Rng1 = cel.EntireColumn.Find(What:="", LookIn:=xlValues, LookAt:=xlPart)
Debug.Print Rng1.FormulaR1C1
Set Rng2 = Dispws.Cells(Rng1.row - 1, Rng1.column)
Debug.Print Rng2.FormulaR1C1
Set Rng3 = Cells(cel.row + 1, cel.column)
Debug.Print Rng3.FormulaR1C1
Set NewRng1 = Range(Rng3.Address & ":" & Rng2.Address)
Debug.Print NewRng1.Address
For Each cell In Range("NewRng1")
val = cell.Value
Next cell
End If
Next cel
Loop
End Sub
我熱烈推薦你學會正確地縮進代碼,或[使用一個工具,它會爲你(http://rubberduckvba.com/indentation) - 將來你應該心存感激! –
固定縮進。我還添加了一個缺少的「End If」,假設它的位置 - 如果這是錯誤的話,可以自由修復。 –