Выбор параметра в качестве диапазона

Question

Может кто-нибудь, пожалуйста, намекнуть на то, что я могу делать неправильно здесь? На данный момент я эффективно пытаюсь сделать команду Ctrl-A, чтобы сделать выбор в блоке данных в vba. Затем я хочу, чтобы этот выбор сохранялся как диапазон, чтобы я мог использовать его позже.

Dim rngAdData As Range 
..... 
Range("A1").Select 
Range(Selection, Selection.End(xlToRight)).Select 
Range(Selection, Selection.End(xlDown)).Select 

Set rngAdData = Selection 
Range(rngAdData).AdvancedFilter Action:=xlFilterInPla.... //<---- 

Последняя строка дает мне run-time error '1004': Method 'Range' of object 'Global' failed

Когда я делаю это следующим образом, она работает

Range("A1").Select 
Range(Selection, Selection.End(xlToRight)).Select 
Range(Selection, Selection.End(xlDown)).AdvancedFilter Action:=xlFilterInPla.... 

Но делать это таким образом, является громоздкой, потому что мне нужно использовать этот диапазон еще раз здесь

With ActiveWorkbook.Worksheets("....").Sort 
    .SetRange Range(Selection) //<--- 

Указанная линия дает мне такую ​​же ошибку.

Answer 1

Range(rngAdData) кормится диапазона к диапазону. Просто используйте rngAdData.AdvancedFilter

Это та же идея по вашей второй проблеме. Вместо этого используйте этот синтаксис.

With ActiveWorkbook.Worksheets("....").Sort 
    .SetRange Selection 

С тем, что вы должны использовать другой способ получения нужного диапазона, кроме использования Select или Selection заявления. Что-то вроде этого должно работать лучше

Dim rngAdData As Range 
Dim sht As Worksheet, bottomMostRow As Long, rightMostColumn As Long 
Set sht = ActiveSheet 
With sht 
    bottomMostRow = .Cells(1, 1).End(xlDown).Row 
    rightMostColumn = .Cells(1, 1).End(xlToRight).Column 
    Set rngAdData = .Range(.Cells(1, 1), .Cells(bottomMostRow, rightMostColumn)) 
End With 

Answer 2

Try ниже код:

Sub sample() 
    Dim rng As Range 
    Range("A1").Select 
    Set rng = Range("A1").CurrentRegion 
    rng.AdvancedFilter xlFilterInPlace, Sheets("sheet1").Range("E7:H8"), False 
End Sub