Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Копирование диапазона ячеек по условию
 
#1
21.08.2025 11:18:59
Добрый день, делаю кнопку копирования диапазона в макросе, который копирует диапазон с B2 до T, но T конечная строка всегда разная.
B2:Tx вот так, где x определяется максимальной заполненной строкой столбца B. Явно указывая всё получается, а как переменную по столбцу T указать не знаю.
 
 
 
#2
21.08.2025 11:21:15
Почитайте ТУТ
 
 
 
#3
21.08.2025 11:50:50
Если для макросов, то посмотрите  Это
 
 
 
#4
21.08.2025 11:55:57
Цитата
Старичок написал:
Если для макросов, то посмотрите   Это
Точно не ту ссылку дал  :D
 
 
 
#5
21.08.2025 21:47:20
Я почитал для общего, хоть не та ссылка.
а в итоге сделал вот так
Код
    Dim rF As Range
    Dim lLastRow As Long
    Set rF = ActiveSheet.UsedRange.Find(What:="*", LookIn:=xlValues, LookAt:=xlWhole, SearchDirection:=xlPrevious, MatchCase:=False, MatchByte:=False)
    If Not rF Is Nothing Then
        lLastRow = Split(rF.Address, "$")(2)
    Else
        lLastRow = 1
        MsgBox "Øëÿïà, ñâÿæèòåñü ñ àäìèíèñòðàòîðîì"
    End If
   
    Range("B4:T" & lLastRow).Copy

End Sub
 
 
 
#6
22.08.2025 09:17:24
Цитата
pilot_Danik написал:
Я почитал для общего, хоть не та ссылка.
Добрый день!
Ниже Старичок, дал правильную ссылку
Попробуйте так:
Код
Sub Макрос1()
    lLastRow = Cells(Rows.Count, "T").End(xlUp).Row
    Set rF = Range("B2:T" & lLastRow)
    rF.Select
End Sub
 
 
 
Страницы: 1
Читают тему
Наверх