テーブルを最後の行に動的にサイズ変更しますか？

Question

VBAで動的にサイズを変更したいテーブルがあります。 私の現在のコードはこれです：列J. の最初の0の前にサイズを変更する必要があり

Sub resizedata() 
Dim ws As Worksheet 
Dim ob As ListObject 
Dim Lrow1 As Long 

Lrow1 = Sheets("Sheet4").Cells(Rows.Count, "J").End(xlUp).Row 
Set ws = ActiveWorkbook.Worksheets("Sheet4") 
Set ob = ws.ListObjects("Table28") 

ob.Resize ob.Range.Resize(Lrow1) 

End Sub 

私は、このしかし...

1. 上にテーブルを一つの条件を追加したいと思います例えば

   ：

   +-------+--------+-------+ 
   |Date(I)|Hours(J)| Sal(K)| 
   +-------+--------+-------+ 
   | Aug | 150000 | 12356 | 
   | Sep | 82547 | 8755 | 
   | Oct | 92857 | 98765 | 
   | Nov | 10057 | 45321 | 
   | Dec |  0 |  0 | 
   | Jan |  0 |  0 | 
   +-------+--------+-------+ 
   

   上記の表のラス12月が列Jの最初の0の値であるため、11行目にする必要があります。

   誰かが既存のコードの修正を支援できますか？以下のような

Answer 1

何か：

With Sheets("Sheet4") 

    Lrow1 = .Cells(.Rows.Count, "J").End(xlUp).Row 
    Do While .Cells(Lrow1, "J").Value=0 
     Lrow1 = Lrow1 - 1 
    Loop 

End With 

Answer 2

あなたはVBAでこれをやりたい特別な理由はありますか？あなたは単純に定義された名前を作成して、自己調整の範囲を作成するには、次を使用することができます。

OFFSET(Sheet!$A$1,0,0,COUNTA(Sheet!$A:$A),COUNTA(Sheet!$1:$1)) 
OFFSET(reference, rows, cols, [height], [width]) 

トップラインは、典型的な使用法を示し、2行目は、公式の構文です。

[式]タブの[名前]に移動し、[新規]をクリックし、名前を付けて参照先に貼り付けます。

1つの注意点がありますが、データに値がないところに0があるように見えます。それが本当の場合は、高さを判断するために別のテストを行う必要があります。

この方法の利点の1つは、常に計​​算されることです。データが変更された場合は、名前付き範囲のサイズ定義が必要に応じて調整されます。

私はあなたがそうVBAは「正しく」あなたの '0'の行にリサイズされて...最後の行であることを `lRow1`をチェックしている