セルの値の前後にasterixを追加します。

Question

列の値の前後にアスタミックスを印刷するのに役立つこのコードがオンラインで見つかりました。 この問題の問題は、列に4行の選択がある場合は4アスタリスクを印刷することです。それは時々違う範囲でハードコードできません。ときには、私は2列の値を持つ列に、私は5や7などを持っています。

私はこれをどのように解決できるかについてのヒントはありますか？私は範囲のセルの代わりに一度に1つのセルをチェックするように私の範囲を宣言する方法を理解できません。

Sub Add_Asterisk() 

Dim r As Range 
With Selection 

    For Each r In Selection 
     r.Value = "*" & r.Value & "*" 
    Next 
End With 


End Sub 

希望カラムと設定範囲内のすべてのセルを介して、ループ内のデータと最後の行を保持する変数を宣言することができ、事前に /D

Answer 1

をUありがとう。

Sub Add_Asterisk() 
Dim LastRow As Long 
Dim Rng As Range, Cell As Range 

'Finding the last row with data in column A 
LastRow = Cells(Rows.Count, "A").End(xlUp).Row 

'Setting the range in column A 
Set Rng = Range("A2:A" & LastRow) 

For Each Cell In Rng 
    Cell.Value = "*" & Cell.Value & "*" 
Next Cell 
End Sub