Подсчёт автосуммы до последней заполненной ячейки

@Viaturu · Регистрация: 22.10.2020

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

Есть файл нужно посчитать сумму до последней заполненной ячейки.

@Narimanych · 12.11.2020, 17:02

Viaturu,

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

Формула берёт не последнее заполненное значение а конец списка значенией

Visual Basic
1
2
3
4
5
6
Sub BBB()
For i = 3 To Cells(3, 1).CurrentRegion.Rows.Count + 1
        j = Split(Cells(1, Cells(i, Columns.Count).End(xlToLeft).Column).Address, "$")(1)
        Cells(i, 3).Formula = "=SUM(D" & i & ":" & j & i & ")"
Next
End Sub

@КостяФедореев · 12.11.2020, 17:04

Viaturu, покажите ваш большой файл, можно без данных, так пару строк оставьте, посмотрим и поможем

@Viaturu · 12.11.2020, 17:13 **[ТС]**

Пример того что получилось.

@Viaturu · 12.11.2020, 17:28 **[ТС]**

Начиная с колонки Z весь диапазон становиться динамичным не постояным количество ТЦ от 1 до N. Также количество строк от 1 до N потому всё пишется без ссылок на ячейки.

Добавлено через 5 минут
Сейчас две маленькие формулы надо.
В колонке РАСХ нужно Данные Колонки ФАКТ - Накл
в колонке КОР Факт -Отгр
Естественно Без ссылок на адресс ячейки.

Добавлено через 1 минуту
а самое главное колонки Расх и Кор всегда последние две в списке. Чтоб проще их находить)))

@Narimanych · 12.11.2020, 17:49

Viaturu,

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

динамичным не постояным количество ТЦ от 1 до N.

от столбца Z до столбца "Б-Склад" -1?

Правильно я понял?

@Viaturu · 12.11.2020, 17:56 **[ТС]**

Да всё верно.

@КостяФедореев · 12.11.2020, 18:27

Viaturu, посмотрите.
То, что было красным сделал, по остальному не понял, что нужно

@Viaturu · 12.11.2020, 18:46 **[ТС]**

КостяФедореев, автосумму мы уже сделали.
Счас простенькое
Сейчас две маленькие формулы надо.
В колонке РАСХ нужна формула "ФАКТ - Накл"
в колонке КОР "Факт - Отгр"
Естественно Без ссылок на адресс ячейки.

@КостяФедореев · 12.11.2020, 18:53

Viaturu, тире это знак минус? Факт минус Накл?

@Viaturu · 12.11.2020, 19:04 **[ТС]**

у меня получаються простенькие алгоритмы. но они работают))))

Cells(3, "A").End(xlToRight).Offset(1, -1).Select
Selection.FormulaR1C1 = "=RC[-48]-RC[-51]"
Selection.Copy
Range(Selection, Selection.End(xlDown)).PasteSpecial Paste:=xlPasteFormulas

Добавлено через 42 секунды
Тире ето минус

Добавлено через 2 минуты
Уверен есть более изящные идеи. но учитывая что учусь с помощью ютуба то и это уже для меня ничего.

@КостяФедореев · 12.11.2020, 19:23

Viaturu, Посмотрите формулы, они могут протягиваться вниз, но нужно зафиксировать перовое значение знаками "$", увидите в файле

@Narimanych · 12.11.2020, 19:52

Viaturu,
А почему вы хотите формулами?
Легче же все просчитывать в коде и прописывать в ячейки готовые значения...

Новые блоги и статьи Все статьи Все блоги /
Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .	Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .
Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .	Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .	Почему SEO не начинается с ключевых слов: что проверить до написания текстов Neotwalker 01.08.2026 Когда владельцу сайта предлагают заняться SEO, первым шагом часто становится сбор запросов и написание текстов. Логика кажется понятной: 1. Находим ключевые слова. 2. Добавляем их на. . .	Знание — сила: Доктрина интенциональности знаний, углубление в формулу Hrethgir 01.08.2026 https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11957&stc=1&d=1785567302 Знаменитый афоризм Фрэнсиса Бэкона «Знание — сила» (Scientia potentia est) в массовой культуре принято понимать. . .

@КостяФедореев Часто онлайн 987 / 637 / 280 Регистрация: 09.01.2017 Сообщений: 2,080
	12.11.2020, 17:04
	Viaturu, покажите ваш большой файл, можно без данных, так пару строк оставьте, посмотрим и поможем 0

@Viaturu 0 / 0 / 0 Регистрация: 22.10.2020 Сообщений: 36
	12.11.2020, 17:28 [ТС]
	Начиная с колонки Z весь диапазон становиться динамичным не постояным количество ТЦ от 1 до N. Также количество строк от 1 до N потому всё пишется без ссылок на ячейки. Добавлено через 5 минут Сейчас две маленькие формулы надо. В колонке РАСХ нужно Данные Колонки ФАКТ - Накл в колонке КОР Факт -Отгр Естественно Без ссылок на адресс ячейки. Добавлено через 1 минуту а самое главное колонки Расх и Кор всегда последние две в списке. Чтоб проще их находить))) 0

@Viaturu 0 / 0 / 0 Регистрация: 22.10.2020 Сообщений: 36
	12.11.2020, 17:56 [ТС]
	Да всё верно. 0

@Viaturu 0 / 0 / 0 Регистрация: 22.10.2020 Сообщений: 36
	12.11.2020, 18:46 [ТС]
	КостяФедореев, автосумму мы уже сделали. Счас простенькое Сейчас две маленькие формулы надо. В колонке РАСХ нужна формула "ФАКТ - Накл" в колонке КОР "Факт - Отгр" Естественно Без ссылок на адресс ячейки. 0

@КостяФедореев Часто онлайн 987 / 637 / 280 Регистрация: 09.01.2017 Сообщений: 2,080
	12.11.2020, 18:53
	Viaturu, тире это знак минус? Факт минус Накл? 0

@Viaturu 0 / 0 / 0 Регистрация: 22.10.2020 Сообщений: 36
	12.11.2020, 19:04 [ТС]
	у меня получаються простенькие алгоритмы. но они работают)))) Cells(3, "A").End(xlToRight).Offset(1, -1).Select Selection.FormulaR1C1 = "=RC[-48]-RC[-51]" Selection.Copy Range(Selection, Selection.End(xlDown)).PasteSpecial Paste:=xlPasteFormulas Добавлено через 42 секунды Тире ето минус Добавлено через 2 минуты Уверен есть более изящные идеи. но учитывая что учусь с помощью ютуба то и это уже для меня ничего. 0

@Narimanych 2752 / 1726 / 779 Регистрация: 23.03.2015 Сообщений: 5,452
	12.11.2020, 19:52
	Viaturu, А почему вы хотите формулами? Легче же все просчитывать в коде и прописывать в ячейки готовые значения... 0