Работа с динамическим диапазоном

@kazZzantip · Регистрация: 06.08.2019

Студворк — интернет-сервис помощи студентам

Просьба сильно не пинать ногами, я только учусь )

Есть макрос, не мой.
Пытаюсь уйти от статических значений, в частности:

Visual Basic
1
    Selection.AutoFill Destination:=Range("M2:M19999"), Type:=xlFillDefault

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

Пытался сделать вот так:

Visual Basic
1
Selection.Autofill Destination:=Range("M1:M" & Range("A" & Rows.Count).End(xlUp).Row)

Но получал ошибку. (1004)

Собственно, вопрос, куда копать? )
Заранее спасибо.

Макрос

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Sub A()
 
    Application.ScreenUpdating = False
    
    Columns("H:I").Select
    Selection.Insert Shift:=xlToRight
    
    Columns("K:K").Select
    Selection.Copy
    Columns("I:I").Select
    ActiveSheet.Paste
    
    Range("M2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-3]<=99,ROUND((RC[-3]+20),0),IF(RC[-3]<=200,ROUND((RC[-3]*1.2),0),IF(RC[-3]<=300,ROUND((RC[-3]*1.1),0),ROUND(RC[-3],0))))"
    
    Selection.AutoFill Destination:=Range("M2:M19999"), Type:=xlFillDefault
   
    Columns("M:M").Select
    Selection.Copy
    Columns("H:H").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
    Range("J1").Select
    Selection.Copy
    Range("H1").Select
    ActiveSheet.Paste
    
    Columns("H:H").EntireColumn.AutoFit
        
    Application.ScreenUpdating = True
    
End Sub

@Aleksan7 · 06.08.2019, 13:39

Если честно не понял в чём задача, но автофильтр я ставлю так:

Visual Basic
1
Rows(1).AutoFilter

или так если через переменную

Visual Basic
1
2
3
Dim n
n = 1 ' номер строки в которую будет поставлен автофильтр
Rows(n).AutoFilter

@kazZzantip · 06.08.2019, 14:04 **[ТС]**

@Aleksan7

Я пытаюсь избежать появления "пустых" строк в конце.
Допустим сегодня файл 100 строк.

Если я оставлю
Range("M2:M19999")

то на выходе получу 100 полезных строк и 19899 строк с цифрой 20 в нескольких ячейках.

Возможно я ошибаюсь и проблема не в этом месте, но тогда я не понимаю в каком )

@Burk · 06.08.2019, 18:17

kazZzantip, у вас выделена ячейка М2, поэтому надо так (не М1, а М3)

Visual Basic
1
Selection.Autofill Destination:=Range("M2:M" & Range("A" & Rows.Count).End(xlUp).Row)

@kazZzantip · 06.08.2019, 18:26 **[ТС]**

Мне подсказали вот такое решение. Работает.

Visual Basic
1
Selection.AutoFill Destination:=Range("M2:M" & ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row)

Добавлено через 1 минуту

Сообщение от Burk

kazZzantip, у вас выделена ячейка М2, поэтому надо так (не М1, а М3)

Попробовал, не работает. Та же 1004 ошибка.

@Burk · 06.08.2019, 19:05

kazZzantip, и поправленная мной ваша строка у меня тоже работает - скопировал ваш код и запустил, оба варианта абсолютно эквивалентны

Добавлено через 36 минут
kazZzantip, ошибка при наборе, недосмотрел, должно быть так - поэтому надо так (не М1, а М2) хотя в строке кода у меня набрано правильно

@kazZzantip · 06.08.2019, 19:10 **[ТС]**

Burk - а вот теперь да работает )

Спасибо!

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@kazZzantip 0 / 0 / 0 Регистрация: 06.08.2019 Сообщений: 4
	06.08.2019, 14:04 [ТС]
	@Aleksan7 Я пытаюсь избежать появления "пустых" строк в конце. Допустим сегодня файл 100 строк. Если я оставлю Range("M2:M19999") то на выходе получу 100 полезных строк и 19899 строк с цифрой 20 в нескольких ячейках. Возможно я ошибаюсь и проблема не в этом месте, но тогда я не понимаю в каком ) 0

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	06.08.2019, 19:05
	kazZzantip, и поправленная мной ваша строка у меня тоже работает - скопировал ваш код и запустил, оба варианта абсолютно эквивалентны Добавлено через 36 минут kazZzantip, ошибка при наборе, недосмотрел, должно быть так - поэтому надо так (не М1, а М2) хотя в строке кода у меня набрано правильно 1

@kazZzantip 0 / 0 / 0 Регистрация: 06.08.2019 Сообщений: 4
	06.08.2019, 19:10 [ТС]
	Burk - а вот теперь да работает ) Спасибо! 0