[[20220109222204]]　『条件分岐式』（ジョー）　ページの最後に飛ぶ

『条件分岐式』（ジョー）

VBA条件分岐について

VBA初心者です。
ご教示ください。
下記のような内容は、どのようにコードを記載すれば良いでしょうか？

シート1、2があります。
シート1にデータテーブルがあります。

・シート1のA列のA2セル以降がブランクなら、
　「データなし」をシート2のA1セルに記入
・データがあるなら、2行目～データがある行までを、シート2の2行目～に挿入する

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 Sub test()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet

    Set ws1 = Worksheets("Sheet1")
    Set ws2 = Worksheets("Sheet2")

    ws2.Range("A1").ClearContents

    If ws1.Range("A2").Value = "" Then
        ws2.Range("A1").Value = "データなし"
        Exit Sub
    End If

    ws1.Range("A2", ws1.Cells(Rows.Count, 1).End(xlUp)).EntireRow.Copy
    ws2.Rows(2).Insert
    Application.CutCopyMode = False

 End Sub

（マナ） 2022/01/09(日) 22:57

マナ様

先日より度々ご教示頂きましてありがとうございます！！！
早速入力してみます！
（ジョー） 2022/01/10(月) 08:57

コメント返信：