テーブルへ値の代入方法

Question

下記画像のテーブルの最初の行へどのように値を代入するかで悩んでいます。
下記のようにテーブルの行数を取得すると値が０となっており、したのセルの式に代入しようとすると、うまくいきません。

お手数おかけしますがご教授お願いいたします。

cell3 = ThisWorkbook.Sheets("美濃加工伝票").ListObjects("伝票").ListRows.Count

MsgBox cell3

With ThisWorkbook.Sheets("美濃加工伝票")
For i = 2 To cell
  If num_ber = Cells(i, 1) Then
    .Cells(3, 6) = wb.Sheets(1).Cells(i, 1).Value
    .Cells(3, 4) = wb.Sheets(1).Cells(i, 7).Value
    .Cells(3, 3) = wb.Sheets(1).Cells(i, 8).Value
    .Cells(3, 9) = wb.Sheets(1).Cells(i, 11).Value
    .Cells(3, 10) = wb.Sheets(1).Cells(i, 12).Value
    .Cells(3, 2) = wb.Sheets(1).Cells(i, 13).Value
    .Cells(3, 5) = wb.Sheets(1).Cells(i, 14).Value
    

Answer 1

行を追加してから代入したらどうでしょう。

    Dim tbl As ListObject
    Set tbl = ThisWorkbook.Sheets("美濃加工伝票").ListObjects("伝票")
    If tbl.ListRows.Count = 0 Then tbl.ListRows.Add

    '以下略

なお、テーブルを使うなら、下記のような感じで列を指定すると分かり安いかと。

    With ThisWorkbook.Sheets("美濃加工伝票").ListObjects("伝票")
        .ListRows.Add         '行の追加
        With .ListRows(1)
            .Range(1) = "1列目"
            .Range(2) = "2列目"
            .Range(3) = "3列目"
        End With
    End With

Comments

[退会済みユーザー]

hatena19様
ご返信ありがとうございます。

この方法で処理いたします。