Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
spauny
0 / 0 / 0
Регистрация: 23.05.2016
Сообщений: 5
#1

Обьединение ячеек по строчно - VBA

25.05.2016, 16:03. Просмотров 104. Ответов 2
Метки нет (Все метки)

Имеется таблица
В столбце (A) работает макрос,который объединяет пустые ячейки до следующей записи,как сделать что бы всталбце (O);(P);(Q) ячейки объединялись анологично столбцу A
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r As Range
Dim c As Range
Dim p As Range
Dim last As Range
Set last = Range("A" & Rows.Count).End(xlUp)
Set r = Range("A2", last) ' ïðîñìàòðèâàåìûé äèàïàçîí
For Each c In r
If Not IsEmpty(c) Then
If Not p Is Nothing Then
Range(p, c.Offset(-1, 0)).Merge
End If
Set p = c
End If
Next c
End Sub
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.05.2016, 16:03
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Обьединение ячеек по строчно (VBA):

Как считать по строчно?
У меня есть лист Excel,в котором хранятся данные, мне необходимо их считать,...

Обьединение разных типов даных
Добрый день. Понятия в ВБА = ламер) Созданы фигуры, в них( на них) нужно...

Обьединение столбцов в Excel по порядку
Здравствуйте! Подскажите, пожалуйста, как сделать следующую вещь. Имеется...

В выделенном диапазоне ячеек поменять цвет заливки всех ячеек с числами
лабараторная 6 Задание 1. Напишите код программы, которая бы закрывала без...

Объединение ячеек одного столбца при совпадении ячеек в другом
Здравствуйте, В таблице необходимо объединить все телефоны в одну ячейку,...

Удалить пробелы в начале и конце ячеек выделенных столбцов ячеек
Доброй ночи! Имеется excel файл с большим количеством страниц, строк и...

2
korvindeson
1258 / 144 / 32
Регистрация: 11.02.2011
Сообщений: 414
26.05.2016, 02:43 #2
Вот это замороченное решение. Да, просто поменять на O,P и Q. Или чтоб букав совсем уж не разводить так.
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
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    shtuka ("A")
    shtuka ("O")
    shtuka ("P")
    shtuka ("Q")
 
End Sub
 
Sub shtuka(x As String)
 
Dim r As Range
Dim c As Range
Dim p As Range
Dim last As Range
 
Set last = Range(x & Rows.Count).End(xlUp)
Set r = Range(x & "2", last)
 
For Each c In r
    If Not IsEmpty(c) Then
        If Not p Is Nothing Then
            Range(p, c.Offset(-1, 0)).Merge
        End If
        Set p = c
    End If
Next c
 
 
End Sub
0
spauny
0 / 0 / 0
Регистрация: 23.05.2016
Сообщений: 5
26.05.2016, 08:23  [ТС] #3
Спасибо за помощь ,немного не то имел ввиду ,хотелось увидеть решение по принципу в столбце (а) обьединильсь допустим 3 ячейки аналогичное объединение произошло и вдругих столбцах (O,P,Q)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.05.2016, 08:23
Привет! Вот еще темы с решениями:

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

Выбрать данные из разных (конкретных) ячеек листа, произвести замену данных ячеек
Что нужно от макроса: выбрать данные из разных (конкретных) ячеек листа,...

Range: поиск пустых ячеек и ячеек с IsNumeric()=false
Подскажіте, пожалуйста... можно лі как-нібудь быстро проверіть, есть лі, к...

Очистка значений ячеек макросом постоянно обновляемых ячеек
Здравствуйте, уважаемые) Помогите решить такую задачу. Есть некий журнал,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru