Как можно построчно сложить два столбца?

@pavelpm · Регистрация: 11.06.2007

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

Доброго дня всем!
Подскажите пожалуйста, как можно построчно сложить два столбца?
Например:
Columns('A:A')=Columns('B:B')+Columns('C :C')
Заранее спасибо.

03.03.2010, 14:58

Может быть просто вставить формулу в каждую ячейку первого столбца?

@pavelpm · 04.03.2010, 06:36 **[ТС]**

Нет. Такой вариант меня не устраивает.
Поэтому я сделать так:

Visual Basic
1
2
3
4
5
6
7
i=1
For Each Col In Columns('A:A').Cells
 If Col.Value=False Then
  Exit For
 End If
Cells(i,1).Value=Worksheets(2).Cells(i,1).Value+Worksheets(2).Cells(i,2).Value 'и т.д.
Next

@IgorTr · 04.03.2010, 08:10

2 pavelpm
Можно два вопроса?
1. Чем такой вариант лучше функций листа?
2. Ты сам его запускал?

08.03.2010, 09:15

Особенно уникально
Cells(i,1).Value=Worksheets(2).Cells(i,1 ).Value+Worksheets(2).Cells(i,2).Value

при постоянной i=1

@pavelpm · 14.03.2010, 07:09 **[ТС]**

Доброго дня всем!
Отвечаю на вопросы:
Чем такой вариант лучше функций листа?
Сохраняемый файл меньше по размеру.
Ты сам его запускал?
Да.

Особенно уникально
Cells(i,1).Value=Worksheets(2).Cells(i,1 ).Value+Worksheets(2).Cells(i,2).Value
при постоянной i=1

Уважаемый Zoll, я привел кусок работоспособного кода, а не весь код, поэтому не надо иронизировать.

14.03.2010, 11:09

2 pavelpm

Если ты выкладываешь код, то выкладывай работоспособный кусок.
В любом случае красивее будет так

Visual Basic
1
2
3
4
For Each Cell In Worksheets(2).Columns('A:A').Cells
    If (Cell.Offset(0, 1).Value = False) And (Cell.Offset(0, 2).Value = False) Then Exit For
    Cell.Value = Cell.Offset(0, 1).Value + Cell.Offset(0, 2).Value
Next Cell

, если я правильно понял твою задачу.

@pavelpm · 15.03.2010, 11:45 **[ТС]**

Доброго дня всем!
Не совсем так (работаю с двумя листами). Надо

Visual Basic
1
2
3
4
5
6
7
8
9
i=2
For Each Col In Worksheets(1).Columns('A:A').Cells
If Col.Value=False Then
Exit For
End If
Cells(i+3,1).Value=Worksheets(2).Cells(i,1).Value+Worksheets(2).Cells(i,2).Value+Worksheets(2).Cells(i,4).Value
'Забыл написать следующюю строку
i=i+1
Next

В общем с этим все путем.
А вот с Offset(0, 1) и Offset(0, 2), что-то не понял.

Новые блоги и статьи Все статьи Все блоги /
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Нашел на реддите интересную статью под названием «Кто-нибудь знает, где получить бесплатный компьютер или. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .

@pavelpm 0 / 0 / 0 Регистрация: 11.06.2007 Сообщений: 58

	Как можно построчно сложить два столбца? 03.03.2010, 07:21. Показов 5800. Ответов 7 Метки нет (Все метки) Доброго дня всем! Подскажите пожалуйста, как можно построчно сложить два столбца? Например: Columns('A:A')=Columns('B:B')+Columns('C :C') Заранее спасибо. 0

marketolog
	03.03.2010, 14:58
	Может быть просто вставить формулу в каждую ячейку первого столбца?

@IgorTr 2 / 2 / 1 Регистрация: 01.01.2008 Сообщений: 410
	04.03.2010, 08:10
	2 pavelpm Можно два вопроса? 1. Чем такой вариант лучше функций листа? 2. Ты сам его запускал? 0

Vasya Pupkin
	08.03.2010, 09:15
	Особенно уникально Cells(i,1).Value=Worksheets(2).Cells(i,1 ).Value+Worksheets(2).Cells(i,2).Value при постоянной i=1

@pavelpm 0 / 0 / 0 Регистрация: 11.06.2007 Сообщений: 58
	14.03.2010, 07:09 [ТС]
	Доброго дня всем! Отвечаю на вопросы: Чем такой вариант лучше функций листа? Сохраняемый файл меньше по размеру. Ты сам его запускал? Да. Особенно уникально Cells(i,1).Value=Worksheets(2).Cells(i,1 ).Value+Worksheets(2).Cells(i,2).Value при постоянной i=1 Уважаемый Zoll, я привел кусок работоспособного кода, а не весь код, поэтому не надо иронизировать. 0