excel - For循环从每一行复制值

Question

我想从行中复制每个值(零件号)，但循环只复制一个，但复制次数与零件号一样多。
我想计算所有包含零件号的行并将该值放在 SAP 字段中，但问题是它只选择一个，而不是第一个，并且做了很多次。
我想一一处理所有零件编号并将它们放在此处的 SAP 字段中:

session.FindById("wnd[0]/usr/ctxtRC27M-MATNR").Text = Cells(NumRows, 1)

'Counts the rows until it finds an empty one
NumRows = Range("A3", Range("A3").End(xlDown)).Rows.Count

Range("A3").Select

'for loop
For i = 3 To NumRows
    'script that SAP made
    session.FindById("wnd[0]").ResizeWorkingPane 181, 24, False
    session.FindById("wnd[0]/tbar[0]/okcd").Text = "/nca01"
    session.FindById("wnd[0]").SendVKey 0
    session.FindById("wnd[0]/usr/ctxtRC27M-MATNR").Text = Cells(NumRows, 1)
    session.FindById("wnd[0]/usr/ctxtRC27M-WERKS").Text = "0072"
    session.FindById("wnd[0]/usr/ctxtRC27M-WERKS").SetFocus
    session.FindById("wnd[0]/usr/ctxtRC27M-WERKS").CaretPosition = 4
    session.FindById("wnd[0]").SendVKey 8
    session.FindById("wnd[0]/usr/tblSAPLCPDITCTRL_1400/txtPLPOD-VGW04[22,0]").Text = Cells(NumRows, 2)
    session.FindById("wnd[0]/usr/tblSAPLCPDITCTRL_1400/ctxtPLPOD-VGE04[23,0]").Text = Cells(NumRows, 3)
    session.FindById("wnd[0]/usr/tblSAPLCPDITCTRL_1400/ctxtPLPOD-VGE04[23,0]").SetFocus
    session.FindById("wnd[0]/usr/tblSAPLCPDITCTRL_1400/ctxtPLPOD-VGE04[23,0]").CaretPosition = 1
    session.FindById("wnd[0]/tbar[0]/btn[11]").Press
Next

Answer 1

在这里可能最容易:
1:查找最后一行，而不是行数:

With ActiveSheet
    Dim lastRow As Long
    lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With

2:从 3循环到 lastRow并使用 i循环内:

For i = 3 To lastRow
    ...
    session.FindById("wnd[0]/usr/ctxtRC27M-MATNR").Text = Cells(i, 1).Value
    ...
    session.FindById("wnd[0]/usr/tblSAPLCPDITCTRL_1400/txtPLPOD-VGW04[22,0]").Text = Cells(i, 2).Value
    session.FindById("wnd[0]/usr/tblSAPLCPDITCTRL_1400/ctxtPLPOD-VGE04[23,0]").Text = Cells(i, 3).Value
    ...
Next