웹사이트에서 복사/붙여넣기 시 Excel 시트 서식 지정

웹사이트에서 복사/붙여넣기 시 Excel 시트 서식 지정

다음에서 데이터베이스를 만들려고 합니다.이 웹사이트. 각 국가에는 수많은 대리인이 있으며 이름 옆에 연락처 정보가 있습니다(팩스 번호 및 회사 이름은 필요하지 않음).

문제는 그로 인해웹사이트의 형식, Excel 시트에 데이터를 복사하면 각 에이전트에 3~4개 행에 걸쳐 정보가 분산되어 있습니다.

각 에이전트가 모든 정보를 한 행에 표시해야 합니다.

예.(괄호 안의 셀)

[ A1 ]       [ B1 ]             [ C1 ]  [ D1 ]                     [ E1 ]  [ F1 ]
GRO Alberti  [email protected]  Bosnia  P Hora K2 A 8 41 Dhjetori  Girana  Tel:+42-79/379 82 86.

수동으로 복사 붙여넣기를 시도했지만 시간이 너무 오래 걸립니다.

내가 하려는 일을 자동으로 또는 더 빠르게 달성할 수 있는 방법이 있나요?

답변1

Excel 수식을 사용하려는 경우:

  • 표를 복사하여 Excel에 붙여넣기
    • 처음 2개 열의 행은 병합되지만 수식은 병합된 영역의 가장 왼쪽 위 셀에만 값을 볼 수 있으며 다른 셀은 수식에 대해 공백으로 나타납니다.
  • 데이터가 셀에서 시작한다고 가정하고 A2셀에 다음 수식을 추가합니다 E2. 새 줄은 다음과 같이 입력됩니다 Alt+Enter.
    =C2 & IF($A3<>"", "", " 
    " & E3)
  • 수식을 적절한 범위에 복사
  • 열을 기준으로 필터링 Name, 제외(Blanks)
  • 원본 AddressOther info열 숨기기
  • 복사하여 새 시트에 값으로 특수 붙여넣기

마지막 단계 전의 솔루션 그림

기본 알고리즘은 다음과 같습니다.

  1. 맨 아래 줄부터 시작
  2. Name1행 아래가 비어 있지 않으면 이 행의 주소를 포함하는 새 문자열을 생성하고, 그렇지 S않으면
    이 행의 주소에서 텍스트를 시작 부분에 추가합니다.S
  3. 한 행 위로 이동

답변2

C1의 값을 어떻게 얻는지 정확히 모르겠지만 페이지 소스를 얻을 수는 있을 것입니다. 이렇게 하려면 Ctrl+ 를 누르세요 U. 그러면 html로 작성된 페이지가 제공됩니다. 128행을 찾으십시오(또는 테이블이 시작되는 곳에 필요한 데이터가 있어야 하며 <table class ....

<table class ...같은 줄에 있는 모든 항목 을 </table>끝 부분에 복사합니다 .

이것을 메모장에 붙여넣으세요.

Ctrl+를 클릭 H하고 찾을 내용: 다음 <br />으로 바꾸기: " "(공백 1개)를 사용하고 모두 바꾸기를 누르세요.

전부 복사해서 엑셀에 붙여넣으세요. 그 후에 서식을 제거하여 셀 크기를 균일하게 만들 수 있습니다.

하이퍼링크는 데이터에 그대로 유지됩니다.

편집하다:

이메일, 전화, 휴대폰, 팩스를 분리하려면 시간이 조금 더 걸리지만 그리 길지는 않습니다.

이메일을 받으려면 E2의 다음 셀에 다음 수식을 사용하세요.

=LEFT(D2, FIND(" ",D2)-1)

그리고 아래로 드래그하세요.

지금 숫자를 얻으려면 F열에서 먼저 모든 숫자를 개별적으로 얻는 것이 더 쉬울 것입니다.

=MID(D2, FIND(" ",D2)+1, LEN(D2))

이제 G에서는 전화를 받고, H에서는 팩스를 받고, I에서는 모바일을 받게 됩니다.

G2에서 다음을 넣고 아래로 드래그합니다.

=IFERROR(MID(F2,FIND("Tel:",F2)+4,IFERROR(FIND(":",F2,FIND("Tel:",F2)+4),LEN(F2))-FIND("Tel:",F2)-4),"")

H2에서 다음을 넣고 아래로 드래그합니다.

=IFERROR(MID(F2,FIND("Fax:",F2)+4,IFERROR(FIND(":",F2,FIND("Fax:",F2)+4),LEN(F2))-FIND("Fax:",F2)-4),"")

I2에서 다음을 넣고 아래로 드래그합니다.

=IFERROR(MID(F2,FIND("Mobile:",F2)+7,IFERROR(FIND(":",F2,FIND("Mobile:",F2)+7),LEN(F2))-FIND("Mobile:",F2)-7),"")

그런 다음 모든 내용을 복사하고 값으로 붙여넣어 수식을 제거하세요. G부터 I까지의 열을 선택하고 all을 바꾸고 +를 통해 아무 것도 Tel바꾸지 Fax않습니다 .MobileCtrlH

위에서 언급한 순서대로 프랑스어 기능은 다음과 같습니다.

=GAUCHE(D2, TROUVE(" ",D2)-1)

=STXT(D2, TROUVE(" ",D2)+1, NBCAR(D2))

=SIERREUR(STXT(F2,TROUVE("Tel:",F2)+4,SIERREUR(TROUVE(":",F2,TROUVE("Tel:",F2)+4),NBCAR(F2))-TROUVE("Tel:",F2)-4),"")

=SIERREUR(STXT(F2,TROUVE("Fax:",F2)+4,SIERREUR(TROUVE(":",F2,TROUVE("Fax:",F2)+4),NBCAR(F2))-TROUVE("Fax:",F2)-4),"")

=SIERREUR(STXT(F2,TROUVE("Mobile:",F2)+7,SIERREUR(TROUVE(":",F2,TROUVE("Mobile:",F2)+7),NBCAR(F2))-TROUVE("Mobile:",F2)-7),"")

관련 정보