macros – 将全部从表1列A复制到表2列A中的所有内容，并插入到表3中的列a和b

我正在寻找一个macros，它将允许我从表1列A中的所有内容复制到表2列A中的所有内容，然后将它们作为列A和B插入到表3中。

我将certificate我在找什么。

Sheet 1 A ------ Ben Jerry Steve Sheet 2 A ------ Code A Code B Code C 

一旦运行macros，结果结果应该如下所示：

 Sheet 3 A | B --------+--------- ben |Code A ben |Code B ben |Code C steve |Code A steve |Code B steve |Code C jerry |Code A jerry |Code B jerry |Code C 

以下是我所尝试的

 Sub TransferData() 'Transfer data Sheets("sheet1").Range("A1:A4").Copy Worksheets("Sheet3").Cells(1, "A") 'Transfer data Sheets("sheet2").Range("A1:A4").Copy Worksheets("Sheet3").Cells(1, "B") End Sub 

Answer 1

好的，更新的代码：

 Sub TransferData() Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet Set ws1 = Sheets("Sheet1") Set ws2 = Sheets("Sheet2") Set ws3 = Sheets("Sheet3") Dim i As Long, j As Long For i = 1 To ws1.Range("A" & Rows.Count).End(xlUp).Row For j = 1 To ws2.Range("A" & Rows.Count).End(xlUp).Row ws3.Range("A" & (ws3.Range("A" & Rows.Count).End(xlUp).Row + 1)) = _ ws1.Range("A" & i) ws3.Range("B" & (ws3.Range("B" & Rows.Count).End(xlUp).Row + 1)) = _ ws2.Range("A" & j) Next j Next i End Sub