使用Excel创build导入文件的最佳方法？

不知道描述这种情况的最好方法是什么，但我会尽我所能。 我正在尝试使用Excel为数据库系统创build导入文件。

以下是我们举的例子：

1) Names in a Column 2) Accounts in a Column (Accounts 1-3) 3) Amounts (An Amount for each Combo, ex: Name1, Account1, Name 1, Account2) 

所以我想要的是一个简单的方法（可能与VBA？）创build一个类似于下面的导入文件：

 (Columns A, B, C) Name#1, Account#1, Amount#1 Name#1, Account#2, Amount#2 Name#1, Account#3, Amount#3 Name#2, Account#1, Amount#4 Name#2, Account#2, Amount#5 etc.. etc.. 

有没有办法做到这一点，而不需要做大量的复制和粘贴？ 我试过了Pivot Tables，但它似乎不适合我的情况

样本数据：

 Names | Accounts | Amounts David 11230 $32.50 Marry 11240 $2.00 Jerry 54500 $990.00 64000 $500.00 $300.00 $600.00 $330.55 $500.00 $45.00 $53.38 $75.00 $44.00 

因此我们想要的预期输出是：

 David, 11230, $32.50 David, 11240, $2.00 David, 54500, $990.00 David, 64000, $500.00 Marry, 11230, $300.00 Marry, 11240, $600.00 ....Continue... 

希望有所帮助

Answer 1

这对我工作：

 Sub tester() Dim sht As Worksheet, rngNames As Range, rngAccts As Range Dim nm As Range, acct As Range, i As Long Set sht = ActiveSheet With sht Set rngNames = .Range(.Range("A2"), _ .Cells(.Rows.Count, 1).End(xlUp)) Set rngAccts = .Range(.Range("B2"), _ .Cells(.Rows.Count, 2).End(xlUp)) End With i = 1 For Each nm In rngNames.Cells For Each acct In rngAccts.Cells i = i + 1 sht.Cells(i, 5).Value = nm.Value sht.Cells(i, 6).Value = acct.Value sht.Cells(i, 7).Value = sht.Range("C1").Offset(i - 1, 0).Value Next acct Next nm End Sub 

input在ColA-C中，输出到Cols EG