[[20210912092703]] 『エラーの意味が分からないです。』(なっと) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『エラーの意味が分からないです。』(なっと)


Sub 追加()

    Call 初期化

    Dim new_no As Long
    Dim last_row As Long

    last_row = ws.Range("A1").End(xlDown).Row
    new_no = ws.Cells(last_row, "A").Value + 1

    If WorksheetFunction.CountA(main_ws.Range("D7:D9")) <> 3 Then
        MsgBox "空欄があります"
        Call 終了
        End
    End If

    ws.Cells(last_row + 1, "A").Value = new_no
    ws.Range(ws.Cells(last_row + 1, "B"), ws.Cells(last_row + 1, "H")).Value = _
                WorksheetFunction.Transpose(main_ws.Range("D5:D11").Value)
   main_ws.Range("D6").Value = new_no

   MsgBox "追加完了"
   Call 終了

End Sub


エラー内容:型が、違います。と出てきます。

最終的にやりたいのは「A列」にあるデータの最終行に追加したいです。

< 使用 Excel:Excel2016、使用 OS:Windows8 >


まず考えられるのはA列のA1からCtrl+↓の位置のセルの値が数値でない、です。
(めざめるパワー) 2021/09/12(日) 09:43

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.