☰

Excel - 管理資料庫以匯入 CRM

tag-icon • tag-icon microsoft-excel database import
Excel - 管理資料庫以匯入 CRM

我有一個資料庫，其中每行包含各種公司資訊（名稱、地址、網站、電話等。每行還包含三個聯絡人及其相應的頭銜。標題為CEO 姓名、CEO 職位、姓名2、職位2 、姓名 3，標題 3。幫助我實現這一點，非常感謝！

答案1

您可以根據 Excel 巨集執行您想要的操作。你必須開啟開發者標籤在 Excel 2013 中。然後對 name3 和 title3 再次執行此操作。

巨集步驟為：

  1. 假設您有行標題，請前往 A2
  2. 開始錄製巨集
  3. 在反白顯示第 3 行時插入一行
  4. 從上面複製並貼上公司到新行
  5. 將名稱 2、標題 2 剪下並貼上到新行
  6. 再次插入新行
  7. 可愛並將名稱 3 和標題貼到新行
  8. 然後將你的單元移到a5。
  9. 這將是您重複巨集的終點。

Excel巨集

您錄製的巨集應該如下所示：

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

相關內容