Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.11.2016, 21:54   #1
arbitr.ru
 
Регистрация: 06.12.2011
Сообщений: 7
Вопрос Проверить первые 4 символа в ячейке с последующим обьединением

Здравствуйте уважаемые форумчане!
Прошу Вашей помощи, так как столкнулся с непреодолимой для меня задачей, с VBA знаком не так давно.
В столбце А указан текст состоящий из цифр и букв
В столбце В указаны цифры
Задача:
Таблица уже отсортирована таким образом что первые 4 знака идут по порядку.
Необходимо сравнивать первые 4 символа в столбце А по порядку строк. И при положительном результате объединять ячейки в столбце С записывая в получившуюся ячейку сумму цифр из столбца B.
Не знаю что ещё добавить, проще один раз увидеть - в примере 2 листа.
На 1ом Задача, на 2ом Решение.
Очень надеюсь на Вашу помощь. Спасибо.
Вложения
Тип файла: xlsx 1.xlsx (10.2 Кб, 10 просмотров)
arbitr.ru вне форума Ответить с цитированием
Старый 15.11.2016, 22:47   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

Код:
Sub macro()
    Dim r As Integer
    Dim rng As Range, s As Long
    For r = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        If rng Is Nothing Then
                Set rng = Cells(r, 3)
        Else
                Set rng = Union(rng, Cells(r, 3))
        End If
        s = s + Cells(r, 2)
        If Left(Cells(r, 1), 4) <> Left(Cells(r + 1, 1), 4) Then
            Debug.Print rng.Address
            With rng
                .Merge
                .HorizontalAlignment = xlCenter
                .VerticalAlignment = xlCenter
                .Value = s
            End With
            s = 0
            Set rng = Nothing
         End If
    Next r
End Sub
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Старый 15.11.2016, 23:22   #3
arbitr.ru
 
Регистрация: 06.12.2011
Сообщений: 7
По умолчанию

Александр, большое Вам спасибо! Отлично работает!!

Единственное не совсем удобно с нумерацией столбцов, хотя может мне стоить поучиться на вашем примере.

Респектуха!
arbitr.ru вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
В ячейке DBGrid подстановка символа??? EugeneIsmatulin БД в Delphi 1 03.10.2011 08:20
В строке удалить первые 3 символа ? newprog12 Помощь студентам 2 19.12.2010 01:17
StringGrid проверка на наличие в ячейке символа SPD Общие вопросы Delphi 0 20.09.2010 11:27
Удаление символа в ячейке Flangini Microsoft Office Excel 2 05.05.2008 14:02
Как из строки получить первые три символа experts91 Помощь студентам 2 07.04.2008 21:58