B列に値が入っていない行をまとめて削除する Sub delete_row() Dim i As Integer For i = 4 To 200 'とりあえず200行までループ If Cells(i, 2).Value = "" Then Rows(i & ":" & i).Delete End If Next i End Sub セルにセットされているハイパーリンクを隣…