마지막 행

Question

내가 사용, 배열로 워크 시트의 정보를 넣어 노력하고 삭제 배열 범위에서 데이터를 전송 :

WBArray = ActiveSheet.Range(Cells(5, 1), Cells(end1, 29)).Value 

을하지만 몇 가지 문제가있다 : 먼저 마지막 두 행을 내 원래 범위의 쓸모없는 데이터가 포함되어 있습니다. 배열로 전달할 때이 두 행을 어떻게 제거 할 수 있습니까? 내가 사용하고있는 것과 같은 직접적인 방법이 있습니까?

둘째, 내 범위는 5 번째 줄부터 시작하지만 이전 파일을 거쳐야하기 때문에 그 수는 다를 수 있습니다. 플로팅 참조를 만들 수있는 방법이 있나요? 그래서 원하는 데이터가 어디서 시작되는지에 따라 변경됩니다. (예를 들어, 행 7에서 시작하는 경우).

각 항목을 반복하면서 이미 시도했지만 작동하지 않는 것 같습니다.

아이디어가 있으십니까?

Answer 1

영업 이익의 해명 후 편집

이 기능을 사용할 수

:

Function GetArray(sht As Worksheet) ', uselessRows As Long) 
    With sht 
     GetArray = .Range(.Columns(1).Find(what:="Identifier", lookat:=xlWhole, LookIn:=xlValues), _ 
          .Cells(.UsedRange.Rows(.UsedRange.Rows.Count).Row - 6, 29)).Value 
    End With 
End Function 

과 같은 주요 하위에 전화 :

WBArray = GetArray(mySht) 

곳 mySht은 예를 들어 유효한 워크 시트 참조입니다. ActiveSheet

Answer 2

어쩌면

Sub x() 

Dim start1 As Long, end1 As Long, WBArray, r As Range 

With ActiveSheet 
    Set r = .Columns(1).Find(What:="Identifier", After:=.Cells(.rows.Count,1), LookAt:=xlWhole, _ 
          SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) 
    If Not r Is Nothing Then 
     start1 = r.Row 
     end1 = .Range("A" & Rows.Count).End(xlUp).Row - 2 
     WBArray = .Range(Cells(start1, 1), Cells(end1, 29)).Value 
    Else 
     MsgBox "Identified not found" 
    End If 
End With 

End Sub