Мне нужен этот код для копирования строк на основе критериев от Col «A» и Col «J». Это код, который я скопировал с другого рабочего листа. благодаря

Этот код копирует данные из импортированного текстового файла в несколько рабочих листов. Мне нужно скопировать элементы не только из «COL J», но также «COL A», чтобы только данные из одной организации переходили на следующий лист. Данные из столбца A, которые нужно скопировать, – это элементы с пометкой «354», более конкретно мне нужны только строки «354» со временем меньше «750» из столбца 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 

Измените оператор 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».

Давайте будем гением компьютера.