Мне нужен этот код для копирования строк на основе критериев от 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».

Interesting Posts

Предмет не найден в словаре

Как предотвратить бесплатное распространение электронной таблицы Excel

Команда VBA Userform Command для копирования строки на лист перед редактированием информации

Excel подключается к TFS 2012 без установки VS 2012

Проверьте, существуют ли какие-либо объекты ListObjects в рабочем листе

Неожиданный запрос параметров

Средние значения от конкретных дат

VBA CountIfs игнорирует аргумент

VBA Macro для копирования данных на новый лист (вкладка)

Как перебирать имена диапазонов и скрывать строки, если cell = 0?

Экспорт данных из SQl в Excel с помощью PHP

Добавление данных в существующую таблицу Excel

Сложность подключения к электронной таблице Excel 2007 через Powershell

Пытаясь создать таблицу pivoit, выберите диапазон данных в таблице pivoit, затем пользователь определит новое местоположение и ячейку для вставки

Excel VBA – выбор диапазона с помощью переменных & COUNTA

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