내 눈으로 보는대로 모든 데이터를 그대로 유지하면서 셀 서식을 텍스트로 변경하는 방법

Question

내 셀의 모든 셀을 텍스트 형식으로 변경하는 매크로를 만들고 싶습니다. 내 다음 코드에서 그것은 모든 셀을 텍스트 형식으로 변경하지만 그 코드의 문제점은 항상 "당신이 보는 것은 무엇을 얻었는지"라는 것입니다. 때로는 셀의 형식을 변경하여 Excel의 데이터를 변경하는 경우도 있습니다. 세포. 예를 들어 숫자 (소수점 4 자)에서 텍스트로 셀 형식을 변경하면 "1.200"은 텍스트 형식 "1.2"등이됩니다 ... 모든 셀을 텍스트 형식으로 바꾸는 데 까다로운 방법이 있습니다. 사용자가 보는 것과 상관없이 모든 데이터를 정확하게 볼 수 있습니다. (사용 VBA)

VBA : (모든 컨텐츠를 가정하는 것은 볼 수 ...

Sub Test() 

    Dim c, v 

    For Each c In Selection.Cells 
     v = c.Text 
     c.NumberFormat = "@" 
     c.Value = v 
    Next c 
End Sub 

즉, 더 열이 너무 좁고, 원인 값 없습니다 :

Cells.Select 
    Selection.NumberFormat = "@" 

Answer 1

당신은 이런 식으로 뭔가를 시도 할 수 있습니다. 그런데 다시 은이 될 것입니다.