Sub kuuhaku_sakuzyo() Dim i As Long For i = 2 To Cells(Rows.Count, 4).End(xlUp).Row If Cells(i, 4) = "" Then 'セルが空なら Range(i & ":" & i).Delete '行を削除 End If Next i End Sub

HTML ---------- <div> <img src="img/g-housoushi-03-thumb.jpg" alt="" class="thumbnail-3"> <span class="noshi-title">01 水玉（赤色系）</span> <div id="largeImg-3"><img width="800" src="img/g-housoushi-03.jpg"></div> </div> ----------- CSS .thumbnail-3 {width:80%;} #largeImg-3 {display: none;} .l…