Excel – 表单macros之间的基本复制粘贴

我需要从第一部分（用户名）更改的两张表中进行基本的数据合并，但是第二部分是，预设的120个项目列表。 即结合：

sheet1:USERLIST albert benny cedric dorothy .... 

同

 sheet2:ITEMLIST item1 item2 item3 .... item120 

所以在另一个工作表（在不同的单元格）的最终输出是

 sheet3 albert item1 albert item2 .... albert item120 benny item1 benny item2 .... benny item120 cedric item1 cedric item2 .... cedric item120 

等等。 我知道这是一个非常基本的问题，但到目前为止还没有find答案。 谢谢！

Answer 1

这可以简单地在两个级别完成For...Next 。

假设你有：

• [表Sheet 1]：

  USER_LIST A B C 

• [Sheet 2中]：

  ITEM_LIST 1 2 3 4 5 

• [表Sheet 3]：

  RESULT_LIST 

有了这个子：

 Private Sub Whatever_name_you_like() Dim i As Integer Dim j As Integer For i = 2 To Worksheets(1).Range("A65535").End(xlUp).Row For j = 2 To Worksheets(2).Range("A65535").End(xlUp).Row Worksheets(3).Cells(Range("A65535").End(xlUp).Row + 1, 1).Value = Worksheets(1).Cells(i, 1).Value & Worksheets(2).Cells(j, 1).Value Next Next End Sub 

运行时，[Sheet3]将导致：

 RESULT_LIST A1 A2 A3 A4 A5 B1 B2 B3 B4 B5 C1 C2 C3 C4 C5 

Answer 2

你能不能用目标范围内的公式来做到这一点：

 =Sheet1!A:A&Sheet2!A:A 

只需在所有目标单元格中​​复制该公式。

这避免了使用VBA和循环，并利用了Excels的内置function，所以不需要启动VBA代码