ReSQL.ru
     
powered by simpleCommunicator - 2.0.58     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / с помощью VBA добавить пустые строки в эксель
21 сообщений из 21, страница 1 из 1
с помощью VBA добавить пустые строки в эксель
    #33181239
Leni
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Leni
Гость
Подскажите пожалуйста!!!
как с помощью VBA добавить пустые строки.
У меня есть макром который сортируем мне инфо по признакам в результате у меня 6 листов экселя с данными (без пробелов).
Например на первом листе:
1 строка (Название продукта)
2 строка (цена продукта, цен со строками может быть несколько)
3 цена
4 цна
5 (добавить пустую строку (надо что бы пустая строка вставлялась после всех манипуляций.)
1И опять название продукта
2Цена
3Пустая строка…

Очень жду!
Заранее огромное спасибо!
...
Рейтинг: 0 / 0
23.07.2005, 14:51
| Ответить | Цитировать | Написать  
с помощью VBA добавить пустые строки в эксель
    #33181271
Фотография talgat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
talgat
Участник
Selection.EntireRow.Insert

Вставка пустой строки в место текущей
...
Рейтинг: 0 / 0
23.07.2005, 16:37
| Ответить | Цитировать | Написать  
с помощью VBA добавить пустые строки в эксель
    #33181273
Фотография talgat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
talgat
Участник
По какому признаку вставляются строки?
...
Рейтинг: 0 / 0
23.07.2005, 16:43
| Ответить | Цитировать | Написать  
с помощью VBA добавить пустые строки в эксель
    #33181291
leni
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leni
Гость
у меня сплошной текст, а надо перед каждым новым наименованием пустую строчку пост....
...
Рейтинг: 0 / 0
23.07.2005, 17:40
| Ответить | Цитировать | Написать  
с помощью VBA добавить пустые строки в эксель
    #33181303
Фотография talgat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
talgat
Участник
leniу меня сплошной текст, а надо перед каждым новым наименованием пустую строчку пост....
Как узнать что наименование новое ? Сканировать весь столбец?
...
Рейтинг: 0 / 0
23.07.2005, 18:04
| Ответить | Цитировать | Написать  
с помощью VBA добавить пустые строки в эксель
    #33181306
leni
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leni
Гость
Видимо да.... выглядеть это должно так! Если несколько позиций с одинаковым названием, то они стоят вместе, как только поясл. новое название, то вставляется пустая строка


12.07.2005 Kami 650$
12.07.2005 Kami 750$

12.07.2005 Uurist 660$

12.07.2005 Sea 671$
...
Рейтинг: 0 / 0
23.07.2005, 18:12
| Ответить | Цитировать | Написать  
с помощью VBA добавить пустые строки в эксель
    #33181311
Фотография talgat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
talgat
Участник
Если одинакоые строки всегда стоят рядом то наверное нужно проийтись циклом по столбцу сравнивая с нижней строкой.
конец таблицы ищешь
Set r = Range("A" & ActiveCell.Row & ":A1000")
Set g = r.Find(What:="")
konec=g.row

потом в цикле
for i=5 to konec step 1




next i

В принципе не сложно. Нужно только учесть что рядом могут быть не 2 а
более строк.
...
Рейтинг: 0 / 0
23.07.2005, 18:28
| Ответить | Цитировать | Написать  
с помощью VBA добавить пустые строки в эксель
    #33181312
Фотография talgat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
talgat
Участник
Наверное посмотри вопрос OLGA2005 от 21.07.05
...
Рейтинг: 0 / 0
23.07.2005, 18:30
| Ответить | Цитировать | Написать  
с помощью VBA добавить пустые строки в эксель
    #33181317
Фотография talgat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
talgat
Участник
Посмотри http://www.sql.ru/forum/actualthread.aspx?tid=201922
...
Рейтинг: 0 / 0
23.07.2005, 18:35
| Ответить | Цитировать | Написать  
с помощью VBA добавить пустые строки в эксель
    #33181323
Фотография talgat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
talgat
Участник
Нужно только учесть что рядом могут быть не 2 а
более строк.[/quot]

Имеется ввиду ОДИНАКОВЫХ строк
...
Рейтинг: 0 / 0
23.07.2005, 18:44
| Ответить | Цитировать | Написать  
с помощью VBA добавить пустые строки в эксель
    #33182090
leni
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leni
Гость
спа! попробую.
...
Рейтинг: 0 / 0
25.07.2005, 10:52
| Ответить | Цитировать | Написать  
с помощью VBA добавить пустые строки в эксель
    #33182617
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
leniВидимо да.... выглядеть это должно так! Если несколько позиций с одинаковым названием, то они стоят вместе, как только поясл. новое название, то вставляется пустая строка


12.07.2005 Kami 650$
12.07.2005 Kami 750$

12.07.2005 Uurist 660$

12.07.2005 Sea 671$

Вот набросал.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Sub FindX()
    Dim rgn As Range
    Dim i As Integer
    Dim intCount As Integer
    
    Set rgn = Cells( 1 ,  1 ).CurrentRegion

    intCount = rgn.Rows.Count
    i =  1 
    
    Do
        If Cells(i,  2 ).Value <> Cells(i,  2 ).Offset( 1 ,  0 ).Value And _
         Cells(i,  2 ).Offset( 1 ,  0 ).Value <> "" Then
            Cells(i,  2 ).Offset( 1 ,  0 ).EntireRow.Insert
            i = i +  1 
            intCount = intCount +  1 
        End If
        i = i +  1 
    Loop Until i > intCount
End Sub
...
Рейтинг: 0 / 0
25.07.2005, 13:59
| Ответить | Цитировать | Написать  
с помощью VBA добавить пустые строки в эксель
    #33183708
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
Пользователь2Вот набросал.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Sub FindX()
    Dim rgn As Range
    Dim i As Integer
    Dim intCount As Integer
    
    Set rgn = Cells( 1 ,  1 ).CurrentRegion

    intCount = rgn.Rows.Count
    i =  1 
    
    Do
        If Cells(i,  2 ).Value <> Cells(i,  2 ).Offset( 1 ,  0 ).Value And _
         Cells(i,  2 ).Offset( 1 ,  0 ).Value <> "" Then
            Cells(i,  2 ).Offset( 1 ,  0 ).EntireRow.Insert
            i = i +  1 
            intCount = intCount +  1 
        End If
        i = i +  1 
    Loop Until i > intCount
End Sub


Вот, сократил: :)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Sub FindX()
    Dim rgn As Range
    
    For Each rgn In ActiveSheet.Cells( 1 ,  1 ).CurrentRegion.Columns( 2 ).Cells
        If (rgn.Value <> rgn.Offset( 1 ,  0 ).Value) And _
                (Not (IsEmpty(rgn) Or IsEmpty(rgn.Offset( 1 ,  0 )))) Then
            rgn.Offset( 1 ,  0 ).EntireRow.Insert
        End If
    Next
End Sub
...
Рейтинг: 0 / 0
25.07.2005, 20:58
| Ответить | Цитировать | Написать  
с помощью VBA добавить пустые строки в эксель
    #33183841
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Victosha
Участник
здорово.
решил попробовать. получилось так

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
    Dim rgn As Range
    Dim tRow As Long

   Set rgn = ActiveSheet.Cells( 1 ,  1 ).CurrentRegion.Columns( 2 ).Cells
            
    For tRow = rgn.End(xlDown).Row To  2  Step - 1 
      If rgn(tRow) <> rgn(tRow -  1 ) Then
        rgn(tRow).EntireRow.Insert
      End If
    Next
...
Рейтинг: 0 / 0
26.07.2005, 02:25
| Ответить | Цитировать | Написать  
с помощью VBA добавить пустые строки в эксель
    #33183862
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Victosha
Участник
эхь, - поторопился малость.
правда в том, что предложенный мной вариант в исходном виде "не держит"
второго прогона на том же наборе данных.

покрутил три варианта. в общем, они становятся не короче White Owl

больше всего мне понравилось сначала сначала удалить все
такие строки, в которых столбец B окажется пустым, а потом вставить
пустые строки заново.
что-то так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
    Dim rgn As Range
    Dim tRow As Long
    
    Set rgn = ActiveSheet.[B:B]
    rgn.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    
    On Error Resume Next
    Set rgn = Intersect(ActiveSheet.[B:B], ActiveSheet.UsedRange).SpecialCells(xlCellTypeConstants)
    On Error GoTo  0 
    
    If Not (rgn Is Nothing) Then
      For tRow = rgn.End(xlDown).Row To  2  Step - 1 
        If rgn(tRow) <> rgn(tRow -  1 ) Then
          rgn(tRow).EntireRow.Insert
        End If
      Next
    End If
...
Рейтинг: 0 / 0
26.07.2005, 05:01
| Ответить | Цитировать | Написать  
с помощью VBA добавить пустые строки в эксель
    #33183863
Фотография Victosha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Victosha
Участник
опять палки и ёлки.
так ближе.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Dim rgn As Range
    Dim tRow As Long
    
    Set rgn = ActiveSheet.[B:B]
    On Error Resume Next
    rgn.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Set rgn = Intersect(ActiveSheet.[B:B], ActiveSheet.UsedRange).SpecialCells(xlCellTypeConstants)
    On Error GoTo  0 
    
    If Not (rgn Is Nothing) Then
    For tRow = rgn.End(xlDown).Row To  2  Step - 1 
      If rgn(tRow) <> rgn(tRow -  1 ) Then
        rgn(tRow).EntireRow.Insert
      End If
    Next
    End If
...
Рейтинг: 0 / 0
26.07.2005, 05:07
| Ответить | Цитировать | Написать  
с помощью VBA добавить пустые строки в эксель
    #33184060
не надо удалять
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
не надо удалять
Гость
просто отсортировать сначала по нужному столбцу.
...
Рейтинг: 0 / 0
26.07.2005, 09:38
| Ответить | Цитировать | Написать  
с помощью VBA добавить пустые строки в эксель
    #33184091
leni
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leni
Гость
Вот, откуда вы такие умные…. Может скажите где научились? ))
...
Рейтинг: 0 / 0
26.07.2005, 09:57
| Ответить | Цитировать | Написать  
с помощью VBA добавить пустые строки в эксель
    #33184157
leni
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
leni
Гость
Народ огромное спасибо все работает))) Вы супер!!!))
...
Рейтинг: 0 / 0
26.07.2005, 10:17
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
с помощью VBA добавить пустые строки в эксель
    #38139244
Brsik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Brsik
Гость
НЕ МОГ НЕ РЕГНУТЬСЯ!

White Owl, Благо'Дарю Вам ! Вы выручили мою супругу от завтрашнего КООООААААААОАОАООАОАОААОАШМАРА.
Ей в документе екселя нужно будет поставить как раз те самые сроки пустые. я тут пол инета облазил. и даже за деньги нашёл то, что у Вас написано для Людей . Тоесть Ваша помощь. Это Вас улучшает в разы.

Моя когда завтра проснётся и узнает что есть решение её(шного) дня. Она просто меня расцелует. Ну а я .....Ну только чуток ВАС -))))))))))))

макрос нашёл как писать! всё сделал! и когда увидел результат.........хотел сразу разбудить сказать.....а потом думаю..та...с просони она конечно порадуется. Но по УТРУ согласитесь это будет ПОКРУЧЕ ЧАШЕК с кофем и тому подобного!
Ещё РАЗ БЛАГОДАРЕН! Вам и Форуму!
...
Рейтинг: 0 / 0
06.02.2013, 03:20
| Ответить | Цитировать | Написать  
с помощью VBA добавить пустые строки в эксель
    #38139487
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
Да можно и без макроса :)
Желательно, чтобы у столбцов были заголовки, но можно и без них.
1. Данные - Итоги: при каждом изменении в (2-й столбец) добавить итоги по (3-й столбец), Итоги под данными.
2. Автофильтр по пустым ячейкам в 1 столбце, выделить 2-ю строку, Ctrl+Shift+вниз, F5 - выделить - только видимые - Del.
3. Выделить одну ячейку, Данные - Группа и структура - Удалить структуру. Отключить автофильтр.
...
Рейтинг: 0 / 0
06.02.2013, 10:41
| Ответить | Цитировать | Написать  
21 сообщений из 21, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / с помощью VBA добавить пустые строки в эксель
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=33181312&tid=2175035]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 44ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 55ms
get tp. blocked users:
 1ms
others: 349ms
total:  491ms
созд. / загр.: 491ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]