Excel을 사용하여 외부 소스에서 정보를 가져 오는 경우 셀에 매우 이상한 정보가 생길 수 있습니다. 예를 들어 1,234.5-와 같은 숫자를 포함하는 셀이 있다고 가정 해 보겠습니다. 이들은 Excel에서 텍스트 셀로 서식이 지정되므로 계산에 사용할 수 없습니다.

다음 매크로는 선택한 범위의 셀을 확인합니다. 셀에 텍스트가 포함되어 있고 해당 텍스트가 마이너스 기호로 끝나면 매크로는 마이너스 기호를 텍스트의 시작 부분으로 이동하고 다시 셀에 넣습니다. 그 결과 셀이 텍스트 값에서 적절한 숫자 값으로 변환됩니다.

Sub ConvToNum()

Dim MyText As Variant     Dim MyRange As Range     Dim CellCount As Integer

Set MyRange = ActiveSheet.Range(ActiveWindow.Selection.Address)

For CellCount = 1 To MyRange.Cells.Count         MyText = MyRange.Cells(CellCount).Value         If VarType(MyText) = vbString Then             MyText = Trim(MyText)

If Right(MyText, 1) = "-" Then                 MyText = "-" & Left(MyText, Len(MyText) - 1)

MyRange.Cells(CellCount).Value = MyText             End If         End If     Next CellCount End Sub

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (2300)은 Microsoft Excel 97, 2000, 2002 및 2003에 적용됩니다. 여기에서 Excel (Excel 2007 이상)의 리본 인터페이스에 대한이 팁의 버전을 찾을 수 있습니다.

link : / excelribbon-Converting_Text_to_Numbers [텍스트를 숫자로 변환].