[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『エラーの意味が分からないです。』(なっと)
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 >
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.