☰

スプレッドシートの行数に基づいて空白の列をフォーマットする

tag-icon • tag-icon microsoft-excel vba
スプレッドシートの行数に基づいて空白の列をフォーマットする

データ セット内の行数に基づいて、ワークシート内の空白の列に色を付けようとしています。データの並べ替えと書式設定を行うマクロは既にありますが、この部分を実行するコードを追加したいと考えています。行数は 50 ～ 50,000 行の範囲で変化する可能性があり、シートの下部まで列全体に色を付けたくありません。VBA コードでこれを行う方法はありますか? このコードを試しましたが、100 行だけではなく列全体に色が付いています。

Range(Range("H13"), Range("H13").End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
       Selection.Interior.Color = vbBlue

答え1

近いですね

Sub test()
Dim lrow As Integer
lrow = Cells(Rows.Count, "H").End(xlUp).Row
Range("H13:H" & lrow).Interior.Color = vbBlue
End Sub

xldown を使用していますが、これは最後のセルを取得してシートの最後まで移動します。xlup を使用してみてください。また、これを使用する習慣をやめるようにしてください。selection通常、これは必要ありません。

関連情報