我需要此代碼根據Col「A」和Col「J」的條件複製行。這是我從其他工作表複製的代碼。謝謝

此代碼將數據從導入的文本文件複製到多個工作表。我需要它不僅複製來自「COL J」的項目而且還複製「COL A」項目，以便只有來自單個組織的數據纔會轉到下一個表單。 A列中需要複製的數據是標記爲「354」的項目，更具體地說，我只需要列J中時間少於「750」的「354」行。謝謝。我需要此代碼根據Col「A」和Col「J」的條件複製行。這是我從其他工作表複製的代碼。謝謝

Sub Daily354() 

    Dim i, lastRow 
    Application.ScreenUpdating = False 
    lastRow = Sheets("Imported Text File").Range("A" & Rows.Count).End(xlUp).row 
    Sheets("Daily 354").Range("A2:S50000").ClearContents 

    'Call AutoFilterDaily 

    For i = 1 To lastRow 

     If Sheets("Imported Text File").Cells(i, "J").Value < 750 Then 
      Sheets("Imported Text File").Cells(i, "J").EntireRow.Copy Destination:=Sheets("Daily 354").Range("A" & Rows.Count).End(xlUp).Offset(1) 
     End If 

    Next i 

    Worksheets("Daily 354").Activate 
    'Call Add_Borders 
    Call DailyNoFHR 
    'Call Formatting_Table 
    'Call Hide_ColumnsDaily 
    Call Add_Type_Mx 
    'Call AutoFilterDaily 
    Application.ScreenUpdating = True 

End Sub

來源

2016-07-22 Gilmer

更改If語句是：

If ((Sheets("Imported Text File").Cells(i, "J").Value < 750) And (Sheets("Imported Text File").Cells(i, "A").Value = 354)) Then 
    Sheets("Imported Text File").Cells(i, "J").EntireRow.Copy Destination:=Sheets("Daily 354").Range("A" & Rows.Count).End(xlUp).Offset(1) 
End If

我不知道的是A是否列數字的唯一的事。如果是這樣，那麼你可以使用我在這裏發佈的內容。如果列A是文本，那麼在354周圍就需要雙引號，就像這個「354」一樣。

來源

2016-07-23 03:12:38 dev1998

它的工作！現在看起來很簡單，非常感謝你的幫助。 – Gilmer

對不起，它實際上不起作用。我得到一個語法錯誤，「預計下一個或轉到」 – Gilmer

我已經更新了我的答案。如果它仍然不起作用，那麼編輯你的代碼以顯示你現在擁有的東西。 – dev1998

我需要此代碼根據Col「A」和Col「J」的條件複製行。這是我從其他工作表複製的代碼。謝謝

回答

相關問題