인터넷의 데이터를 Excel 워크 시트에서 사용할 수있는 한 가지 방법은 웹 페이지에서 복사 한 다음 워크 시트에 붙여 넣는 것입니다. 예를 들어 웹 페이지에서 데이터 표를 선택하고 Ctrl + C를 눌러 클립 보드에 복사하고 Excel에서 셀을 선택한 다음 Ctrl + V를 누를 수 있습니다. Excel은 데이터를 구문 분석하고 원래 테이블에있는 것처럼 적절한 셀에 배치하기 위해 최선을 다합니다.

문제는 종종 테이블 데이터 이상의 것을 얻을 수 있다는 것입니다. 웹에서 복사 한 데이터에 다른 개체가있는 경우 해당 개체도 워크 시트에 붙여 넣어집니다. 워크 시트에서 모든 종류의 작은 그래픽으로 끝나는 것은 드문 일이 아닙니다. 이러한 그래픽이 원래 하이퍼 링크 인 경우 실제로 하이퍼 링크를 추출한 다음 그래픽을 삭제할 수 있습니다. 이렇게하면 워크 시트의 데이터를 훨씬 더 유용하게 사용할 수 있습니다.

이를 수행하는 방법은 매크로를 사용하는 것입니다. 웹 정보를 워크 시트에 붙여 넣은 후 다음 매크로를 실행합니다.

Sub ConvertHLShapes()

Dim shp As Shape     Dim sTemp As String

For Each shp In ActiveSheet.Shapes         sTemp = ""

On Error Resume Next 'go to next shape if no hyperlink         sTemp = shp.Hyperlink.Address         On Error GoTo 0         If sTemp <> "" Then             shp.TopLeftCell.Value = sTemp             shp.Delete         End If     Next End Sub

이 매크로는 워크 시트의 각 셰이프를 단계별로 실행합니다. 그런 다음 셰이프에 연결된 하이퍼 링크가 있는지 확인합니다. 그렇다면 해당 하이퍼 링크의 주소 (sTemp 변수에 있음)가 셰이프가있는 위치의 왼쪽 상단 모서리에있는 셀에 배치됩니다. 매크로는 하이퍼 링크가있는 모든 모양을 삭제합니다. shp.Delete 줄을 If …​ End If 구조 외부로 이동하여 워크 시트의 모든 셰이프를 강제로 삭제할 수 있습니다.

_ 참고 : _

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

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

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

이 팁 (3578)은 Office 365의 Microsoft Excel 2007, 2010, 2013, 2016, 2019 및 Excel에 적용됩니다. 여기에서 Excel의 이전 메뉴 인터페이스에 대한이 팁 버전을 찾을 수 있습니다.

link : / excel-Extracting_URLs_from_Hyperlinked_Images [하이퍼 링크 이미지에서 URL 추출].