Question

我正在尝试使用以下代码搜索每一行中的一个单元格。如果搜索值与该行中单元格的一部分匹配，则复制整行并将其添加到另一个工作簿中另一个范围的末尾。

Sub GetRowsWithMatchingDates ()


Dim toThisWorkSheet As Worksheet,  fromSourceWorkbook As Workbook
Dim NextFreeRow As Long
Dim LastRow As Long
Dim currentRowDate As String
Dim currentRow As Long
Dim TodaysDateAsString As String
Dim currentRowDate As String

TodaysDateAsString = 20150320


Set toThisWorkSheet = ThisWorkbook.Sheets("ImportedData")
NextFreeRow = toThisWorksheet.Range("A" & Rows.Count).End(xlUp).Row + 1

Set fromSourceWorkbook = Workbooks.Open(ThisWorkbook.Path & "JUIDTesting.xlsb")

     With fromSourceWorkBook.Sheets("DataToBeSearched")


           For i = 1 to To LastRow
           LastRow = .Range("A" & .Rows.Count).End(xlUp).Row
           currentRowDate = Mid(toThisWorkbook.Range("B" & i + 1).Value, 3, 8)
           currentRow = .Range("A" & i + 1).Row

                If TodaysDateAsString = currentRowDate  Then

                     currentRow.Copy
                     toThisWorkbook.Range("A" & LastRow + 1).PasteSpecial xlPasteValues

               Endif

           Next i

     End With

fromSourceWorkBook.Close False

End Sub

`

我刚刚开始使用for和with并复制粘贴代码，这样就可以完全搞定了。

Answer 1

lastrow需要在你的循环之前，现在它是未定义的并且默认为0.所以你正在做i = 1到0。

应该是

LastRow = .Range("A" & .Rows.Count).End(xlUp).Row
For i = 1 to To LastRow
    currentRowDate = Mid(toThisWorkbook.Range("B" & i + 1).Value, 3, 8)
    currentRow = .Range("A" & i + 1).Row

    If TodaysDateAsString = currentRowDate  Then

        currentRow.Copy
        toThisWorkbook.Range("A" & LastRow + 1).PasteSpecial xlPasteValues

    Endif

Next i

这会纠正你的第一个问题。

你的第二个问题是toThisWorkbook没有在任何地方定义+它与来自源工作簿的一起使用，并且你没有定义工作表。

需要像

这样的东西

ThisWorkbook.toThisWorkSheet.Range("A" & LastRow + 1).PasteSpecial xlPasteValues

但请记住，只会继续覆盖同一行，因为这是你告诉它要做的。 lastrow + 1 =将始终是相同的常数。

在工作簿之间搜索和提取

1 个答案: