最後の行

Question

私が使用して、配列にワークシートから情報を入れしようとしています削除配列の範囲からデータを転送する：

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

をしかし、問題がいくつかあります：最初の最後の2行を私の元の範囲の無駄なデータが含まれています。どのように配列に渡すと、これらの2行を削除できますか？私が使っているような直接的な方法はありますか？

第2に、私の範囲は行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

たぶん

OPの明確化後に編集

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