下記画像のようにSheet1にIDと名前が入っている場合、下記のようにコードを書き未入力のセルアドレスをメッセージボックスに表示しているのですが、ID列の一番下のA8が未入力の場合もメッセージボックスに$A8$と表示したいのですが、表の最終行の未入力チェックはどうしたらできるのでしょうか?
Sub 未入力テスト() Dim N As Long Dim I As Long Dim L As Long Dim L2 As Long Dim V As String Dim V2 As String L = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row L2 = Worksheets("Sheet1").Cells(Rows.Count, 2).End(xlUp).Row For N = 2 To L V = Worksheets("Sheet1").Cells(N, 1).Value If V = "" Then MsgBox Worksheets("Sheet1").Cells(L, 1).Address End If Next N For I = 2 To L2 V2 = Worksheets("Sheet1").Cells(I, 2).Value If V2 = "" Then MsgBox Worksheets("Sheet1").Cells(Rows.Cout, 2).Address End If Next I End Sub
回答3件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。