Question

我没有VBA的经验，但已经完成了创建将bin位置从旧位置转移到新位置的列表的任务

我需要将工作表“S005”中的数据复制到每个单元格，然后将该数据粘贴到名为“mapping 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

这里不需要循环......：）

Which area code would you like to find out 
East Bay
Area Code:

遍历工作表中的一系列单元格并复制并粘贴到新工作表

1 个答案: