셀에서 값 앞뒤에 asterix를 추가하십시오.

Question

열의 값 앞뒤에 asterix를 인쇄 할 수 있도록 온라인에서이 코드를 발견했습니다. 이 문제는 열 4 개 중 하나를 선택할 때 4 개의 별표가 인쇄된다는 것입니다. 때때로 다른 경우가 있기 때문에 범위를 하드 코드 할 수 없습니다. 때로는 값이있는 열에 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

/미리 에 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