从一个表取数到另一个表

春天的打火机

从订单表取数到写入表，订单表要取的数有空格或其他文字，写有工序那一行要跳过，请大神帮忙，谢谢！

liulang0808

Sub 按钮1_Click()
    With Application.FileDialog(msoFileDialogFilePicker)
        .InitialFileName = ThisWorkbook.Path & "\"
        .Title = "请选择对应excel文件"
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "Excel文件", "*.xls*"
        If .Show Then f = .SelectedItems(1) Else Exit Sub '
    End With
    Application.ScreenUpdating = False
    With Workbooks.Open(f)
        arr = .Sheets(1).UsedRange
        .Close False
    End With
    r = 0
    For j = 2 To UBound(arr)
        If InStr(arr(j, 5), "总数") > 0 Then Exit For
        If Len(arr(j, 2)) > 0 Then
            
            If Left(arr(j, 2), 1) Like "[A-Z]" Then
                r = r + 1
                arr(r, 1) = arr(j, 2)
                arr(r, 2) = Val(arr(j, 6))
            End If

        End If
    Next j
    Sheets(1).UsedRange.Offset(1).ClearContents
    [a2].Resize(r, 2) = arr
    Application.ScreenUpdating = True
End Sub

liulang0808

附件内容供参考。。。。。。。

春天的打火机

liulang0808 发表于 2023-3-21 16:04
Sub 按钮1_Click()
    With Application.FileDialog(msoFileDialogFilePicker)
        .InitialFileNam ...

完美，谢谢！

春天的打火机

liulang0808 发表于 2023-3-21 16:05
附件内容供参考。。。。。。。

完美，谢谢！

gwjkkkkk

参与一下。。。

春天的打火机

gwjkkkkk 发表于 2023-3-21 20:27
参与一下。。。

谢谢，辛苦