☰

Excel - CRM으로 가져올 데이터베이스 관리

tag-icon • tag-icon microsoft-excel database import
Excel - CRM으로 가져올 데이터베이스 관리

각 행에는 다양한 회사 정보(이름, 주소, 웹사이트, 전화번호 등)가 포함된 데이터베이스가 있습니다. 각 행에는 세 개의 연락처와 해당 직위도 포함되어 있습니다. 헤더는 CEO 이름, CEO 직위, 이름 2, 직위 2입니다. 이름 3, 제목 3. 내 CRM으로 가져올 때 내 문제는 행당 하나의 연락처만 캡처하는 것입니다. 원래 행을 복제하고(모든 회사 정보 유지) 각 행에 하나의 연락처 이름이 있어야 하는 것 같습니다. . 그렇게 되도록 도와주세요! 정말 감사합니다!!!

답변1

Excel 매크로를 기반으로 원하는 작업을 수행할 수 있습니다. 당신은해야개발자 탭을 켜세요Excel 2013에서. 그런 다음 "상대 참조 사용"을 켠 상태에서 매크로를 기록하고 회사, name2, title2를 새 행으로 가져오는 루프를 만듭니다. 그런 다음 name3 및 title3에 대해 다시 수행하십시오.

매크로 단계는 다음과 같습니다.

  1. 행 머리글이 있다고 가정하고 A2로 이동하십시오.
  2. 매크로 기록 시작
  3. 3행이 강조표시된 상태에서 행을 삽입하세요.
  4. 위에서 회사를 복사하여 새 행에 붙여넣으세요.
  5. name2, title 2를 잘라서 새 행에 붙여넣기
  6. 새 행을 다시 삽입
  7. 귀여운 이름 3을 붙여넣고 제목을 새 행에 붙여넣으세요.
  8. 그런 다음 셀을 a5로 이동하십시오.
  9. 이것이 매크로를 반복하는 종료점이 됩니다.

엑셀 매크로

기록된 매크로는 다음과 같아야 합니다.

Sub Macro2()
'
' Macro2 Macro
'

'
    ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    ActiveCell.Offset(-1, 0).Range("A1").Select
    Selection.Copy
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(-1, 3).Range("A1").Select
    Application.CutCopyMode = False
    Selection.Cut
    ActiveCell.Offset(1, -2).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(-1, 3).Range("A1").Select
    Selection.Cut
    ActiveCell.Offset(1, -2).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    ActiveCell.Offset(-1, 0).Range("A1").Select
    Selection.Copy
    ActiveCell.Offset(1, 0).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(-2, 5).Range("A1").Select
    Application.CutCopyMode = False
    Selection.Cut
    ActiveCell.Offset(2, -4).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(-2, 5).Range("A1").Select
    Selection.Cut
    ActiveCell.Offset(2, -4).Range("A1").Select
    ActiveSheet.Paste
    ActiveCell.Offset(1, -2).Range("A1").Select
End Sub

두 번 이상 반복해야 하는 경우다른 매크로이 매크로를 원하는 횟수만큼 호출합니다.

Sub Test()
Call Macro2(3) 'run macro 3 times
End Sub

관련 정보