指定した範囲に空白セルがあったとき、空白である行を削除する。 サンプルコード Sub SampleCode() '空白セルの行を削除 Range("A1:A10").SpecialCells(xlCellTypeBlanks).EntireRow.Delete End Sub Excelのマクロで空白セルを詰めたいのですが、枠線の表をそのままにする方法を教えてください。通常、①のように、表が崩れてしまいます（セルを詰めているので当然ですが、、、）。②のように、表の枠線が残る、もしくは再現されるようにしたいです。よろしくお願いいたします。

LineStyle = xlContinuous Then MsgBox "下線あり" Else MsgBox "下線なし" End If Bordersを以下のような引数に換えれば『下端（下線）』以外にも使えます。 「b2～c3」セルの各セルの上下左右の罫線について、以下処理を実行する: 4: 破線の罫線を引く: 5: 罫線の太さを中太にする: 8 「b5～c7」セルのセル範囲の内側に実線の横罫線を引く: 10 「b9～c9」セルに右下がりの実線の罫線を引く: 12 Excel VBA 空白セル以外のセルを罫線で囲む ここの質問箱をよく利用させて頂いている者ですが、また質問させていただきます。 あるシート（例：”Sheet1”）の全セル内のうち、ランダムな文字が全セル内のどこかに記入されています。 Borders (xlEdgeBottom). Excel VBA マクロのセルに罫線を設定する方法を紹介します。Range.Borders プロパティまたは Cells.Borders プロパティで罫線を設定できます。Borders.LineStyle プロパティで罫線の種類を設定できます。Borders.Weight プロパティで罫線の太さを設定できます。 たとえば、ExcelVBAでセルA5に下線があるかの判定は以下の感じです。 If Range ("A5"). 2009-01-07 ExcelVBAで罫線の判定 .