範囲内のランダムな行をハイライト表示

Question

ボタンを押すと選択範囲内のランダムな行が強調表示されるようにしようとしています。 I範囲を占めるヘッダを有するシートに今

Sub SelectRandom() 
Dim mrg As Worksheet 
Set mrg = ActiveWorkbook.Sheets("Merged") 

Dim PopulationSelect As Range 
Set PopulationSelect = mrg.Range("A" & Rows.Count).End(xlUp) 


RandSample = Int(PopulationSelect.Rows.Count * Rnd + 1) 
PopulationSelect.Rows(RandSample).EntireRow.Interior.Color = RGB(255, 255, 153) 

End Sub 

（「A1：L5」）ので、私は（寛大@Kyleスネルに@gtwebbによって提供される回答に基づいている）は、以下のコードを有しますランダムにデータを含むヘッダーの下にある行の行を選択して強調表示するコードが必要です。私はそれをどうやってやりますか？コードは、その時点でデータを含む最後の行のみを選択して強調表示します。

Answer 1

以下のコードを試してみてください。

Sub SelectRandom() 
    Dim mrg As Worksheet 
    Dim Rand As Long 
    Dim PopulationSelect As Range 

    Set mrg = ActiveWorkbook.Sheets("Merged") 

    'Define your start row below (instead of 6) 
    Rand = Application.WorksheetFunction.RandBetween(6, mrg.Range("A" & Rows.Count).End(xlUp).Row) 
    mrg.Rows(Rand).EntireRow.Interior.Color = RGB(255, 255, 153) 

End Sub