как отсортировать дату в файле так, чтобы данные в связанном файле оставались связанными с отсортированными данными Excel VBA - PullRequest
0 голосов
/ 20 июня 2019

Я пытаюсь получить данные, которые в testfile1, отсортированы в порядке дат, и данные, которые находятся в файле, который связан с testfile1, «перемещаются» вместе с ним.testfile1 имеет 3 столбца.Столбец А содержит случайные даты заказа.Столбцы B и C содержат описания и значения (соответственно), относящиеся к датам в столбце A. В настоящее время установлено 6 строк случайных дат (строки 3–8), а также описания и значения в соответствующих столбцах.enter image description here

testfile2 also contains 3 columns, but only 2 Rows.
'Column A, Row 1 is =[testfile 1.xlsx]Sheet1'!$A$5
'Column B, Row 1 is =[testfile 1.xlsx]Sheet1'!$B$5 and
'Column C, Row 1 is =[testfile 1.xlsx]Sheet1'!$C$5
'Row 2 contains =[testfile 1.xlsx]Sheet1'!$A$8,       ' 
[testfile1.xlsx]Sheet1'!$B$8 and =[testfile 1.xlsx]Sheet1'!$C$8 in         Columns 'A to C respectively

enter image description here

sub macro1()
Range("A2:C7").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add    Key:=Range("A2"), _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
    xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Sheet1").Sort
    .SetRange Range("A2:C7")
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

Мне нужно иметь возможность сортировать данные в testfile1 в порядке дат(Столбец A) и чтобы данные в testfile2 соотносились с новой позицией данных в testfile1.

Я пробовал каждую комбинацию [testfile 1.xlsx] Sheet1 '! $ A $ 4, $ A4, $ 4 и просто A4 в testfile2.В каждом конкретном случае данные в testfile2 продолжают относиться к исходному местоположению, включая «именование» данных строки.Результат: enter image description here

Получается так: - enter image description here Как видите, формула имеет то же значение, и теперь относится кневерные данные.

Ранее я нашел ссылку (в stackoverflow), в которой предлагалось использовать Index и Match, но изначально я не понимал синтаксис и не мог заставить его работать.С тех пор я спал на нем и думаю !!Я знаю, что я делал неправильно.Однако я не запомнил предлагаемый синтаксис и теперь не могу найти его снова.помогите !!!

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...