vba - 宏 - 将所有从工作表 1 列 A 复制到工作表 2 列 A 中的所有内容并插入工作表 3 列 a 和 b

Question

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

我将展示我在寻找什么。

Sheet 1
A        
------
Ben               
Jerry             
Steve   


Sheet 2
A       
------
Code A           
Code B           
Code C            

运行宏后，结果结果应如下所示：

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