根據單元格值將行復制到工作簿表中

Question

我是一個非常新的人，一直在盡我所能來自助，但是大約一個小時后，我放棄了，現在需要幫助，我正在嘗試使用下面的代碼在我的工作簿中復制“ OK”行從工作表2工作表1中的新工作表中將1頁1列I

我不需要復制“錯誤”部分，但是在我讓代碼正常工作之前一直保留此部分。

我還想將所有數據復制到工作簿2中，因為之前的日期已被新數據替換。

    FilterAndCopy()

Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual


Dim lngLastRow As Long
Dim OKSheet As Worksheet, ErrorSheet As Worksheet

Set OKSheet = Sheets("Sheet1") ' Set This to the Sheet name you want all Ok's going to
Set ErrorSheet = Sheets("Sheet2") ' Set this to the Sheet name you want all Error's going to

lngLastRow = Cells(Rows.Count, "A").End(xlUp).Row


With Range("A1", "I" & lngLastRow)
    .AutoFilter
    .AutoFilter Field:=9, Criteria1:="OK"
    .Copy OKSheet.Range("A1")
    .AutoFilter Field:=9, Criteria1:="ERROR"
    .Copy ErrorSheet.Range("A1")
    .AutoFilter
End With


Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic

End Sub

謝謝

Answer 1

好吧，您的代碼無法正常工作，因為您需要編寫

 sub FilterAndCopy()

在您的潛艇開始時，嘗試一下，看看它是否有效。

您可以檢查列中是否有數據：

Dim r as range
set r = Range("a1")
 while r.value <> ""
  r= r.offset(0,1)
 end while

並使用“ r”代替A1作為粘貼范圍