Question

所有人，谢谢您的时间。

我们已经有了可以在excel中使用vb将数据从一个wrksht移至另一个的工作代码。

我们使用：

Set lastrow = Sheets ("SR log").Cells(Rows.Count, 1).End(x1UP)
    With LastRow

这会将我们选择的数据放在表格2的最后一个打开行中

是否有可能（而不是最后一行）从已经在第二张纸上的第一张纸中搜索参考号，比如说单元格G3。使用单元格g3中第一张工作表中的信息，然后在第二张工作表中查找。

一旦找到该行（第一张纸的G3数据将在第二张纸的A列中）

现在将数据应用于该行。

任何帮助将不胜感激。

2/22/19

这是我的答复。

感谢您抽出宝贵的时间

我整理了一些东西，但想在执行之前先运行它

[代码]

 Private Sub CommandButton2_Click()




    Workbooks.Open Filename:="G:\General\COVER  SHEET_Protective\Protective     Packaging Order Log.xlsm", Password:="PP", WriteResPassword:="PP"





   Dim FoundRow As Variant
   FoundRow = Application.Match(Sheets(1).Range("G3"), Sheets(2).Columns(1), 0)
    If IsNumeric(FoundRow) Then
    With FoundRow
        ' found, use FoundRow like LastRow before
    End With
   Else
    ' not found :(
    End If



 .Offset(1).Font.Size = 14

                .Offset(1, 9) = ws.[I10]
                .Offset(1, 10) = ws.[I11]

     End Sub

[/ code]

我对此行不太确定

[代码]

 Application.Match(Sheets(1).Range("G3"), Sheets(2).Columns(1), 0)

[/ code]

第一个工作簿上的匹配表1称为工作表

以及在第二个工作簿上进行搜索的第一个工作簿柱该工作表称为orderlog

谢谢

Answer 1

您可以使用//code inside UIViewController class func addViewControllerAtBottom() { let newVC = NewVCType() //just instantiate it addChildViewController(newVC) view.insertSubview(newVC.view, at: 0) //at 0 means it's first rendered, all others will be on top of it }找到匹配的行：

Application.Match

如何将数据从一个工作表复制到另一工作表到特定行

1 个答案: