Excel - Zarządzaj bazą danych, aby importować do CRM

-2

Mam bazę danych, w której każdy wiersz zawiera różne informacje o firmie (imię i nazwisko, adres, strona internetowa, telefon itp. Każdy wiersz zawiera również trzy kontakty i odpowiadający im tytuł. Nagłówki to nazwa prezesa, tytuł dyrektora naczelnego, nazwa 2, tytuł 2, Nazwa 3, tytuł 3. Mój problem polega na importowaniu do mojego CRM, to tylko przechwytywanie jednego kontaktu na wiersz. Wydaje się, że muszę zduplikować oryginalny wiersz (zachowując wszystkie informacje o firmie) i mieć jedną nazwę kontaktu w każdym wierszu . Pomóż mi to zrobić! Dziękuję bardzo!

microsoft-excel database import

— Karen Risse
źródło

Witamy w Super Użytkowniku! Proszę to zanotować Superużytkownik nie jest usługą pisania skryptów. Jeśli powiesz nam, co próbowałeś do tej pory (w tym skrypty, których używasz) i gdzie utknąłeś, możemy spróbować pomóc w określonych problemach. Powinieneś także przeczytać Jak mogę zadać dobre pytanie? .

— DavidPostill

Nie można podać szczegółowych instrukcji, nie widząc układu pliku, ale jest to coś, co próbujesz zrobić: google.com/… Mam nadzieję, że jeden lub dwa z tych linków pomogą.

— Andi Mohr

Bardzo dziękuję za szybką odpowiedź. Makro poniżej działało dobrze, z wyjątkiem tego, że zrobiło to tylko jeden rekord, a nie cały arkusz. Czy jest jeszcze jedna część kodu, którą muszę uwzględnić, aby wpłynęła na cały arkusz?

— Karen Risse

Cześć Karen - Zrewidowałem moją odpowiedź, aby uwzględnić sposób wywoływania makra, który ma zapętlić wiele razy. Zrobiłem wyszukiwanie Google, aby powtórzyć makro Excela.

— Sun

Możesz robić to, co chcesz, w oparciu o makro Excel. Musisz włącz kartę Deweloper w programie Excel 2013. Następnie nagraj makro z włączoną opcją „Użyj odniesienia względnego” i utwórz pętlę, która przeniesie firmę, nazwę2, tytuł2 do nowego wiersza. Następnie zrób to ponownie dla name3 i title3.

Kroki makro to:

przejdź do A2 zakładając, że masz nagłówek wiersza
zacznij nagrywać makro
wstaw wiersz, gdy masz podświetlony wiersz 3.
skopiuj i wklej firmę z góry w nowym wierszu
wyciąć i wkleić nazwę2, tytuł 2 do nowego wiersza
ponownie wstaw nowy wiersz
cute i wklej nazwę 3, a tytuł do nowego wiersza
następnie przenieś swoją komórkę do a5.
To będzie twój punkt końcowy do powtórzenia makra.

Nagrane makro powinno wyglądać mniej więcej tak:

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

Jeśli chcesz powtórzyć więcej niż raz, masz kolejne makro który wywołuje to makro tyle razy, ile chcesz:

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

— Sun
źródło