在單元格中的值前後添加asterix。

Question

我在線發現此代碼以幫助我在列中的值前後打印asterix。 這個問題是，它打印4 asterix如果我有一列4行的選擇等我不能硬編碼的範圍，因爲它有時不同。有時我在列a中有2行，其中有值，其他時間是5或7等等。

你有任何提示，我可以如何解決這個或任何幫助？我不知道如何聲明我的範圍，例如，因此它一次檢查一個單元格而不是單元格範圍。

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

你可以聲明一個變量，通過在設定範圍內的所有單元格舉行的最後一行與所需的列數據，然後循環。

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