遍歷工作表中的一系列單元格，然后復制並粘貼到新表中

Question

我沒有使用VBA的經驗，但是已獲得創建將bin位置從舊位置轉移到新位置的列表的任務

我需要在工作表“ S005”中獲取數據，然后復制每個單元格，然后將該數據粘貼到稱為“映射005”的工作表中
“ S005”中的每一行都具有序列號“ S / N”，而“映射005”工作表具有相應的序列號。
來自S005的數據必須放在映射005中的正確位置

S / N Typ Sec StorageBin新料箱材料庫存重量

1 001 005 A09-01-40 R06-07-70 117-7029 1 0.768

但是我如何在所有行中進行循環

Sub CopyDATA1()

Set ws1 = Worksheets("S005")
Set ws4 = Worksheets("Mapping 005")

With ws4
    .Range("c3").Value = ws1.Range("b2").Value
    .Range("c4").Value = ws1.Range("c2").Value
    .Range("c5").Value = ws1.Range("d2").Value
    .Range("c6").Value = ws1.Range("e2").Value
    .Range("c7").Value = ws1.Range("f2").Value
    .Range("c8").Value = ws1.Range("g2").Value
    .Range("c9").Value = ws1.Range("h2").Value
End With

End Sub

Answer 1

這里不需要循環... :)

Sub CopyDATA1()
Dim wCopy As Worksheet, wPaste As Worksheet, lRw As Long

Set wCopy = Worksheets("S005")
Set wPaste = Worksheets("Mapping 005")

With wCopy
    lRw = Cells(Rows.Count, "C").End(xlUp).Row
    .Range("C3:C" & lRw).Copy
    wPaste.Range("B2").PasteSpecial Transpose:=True
End With

Application.CutCopyMode = False

End Sub