Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Копирование значений >0 в послед. пустую ячейку столбца - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование значений >0 в послед. пустую ячейку столбца (Макросы/Sub)
Копирование значений >0 в послед. пустую ячейку столбца
djon2012 Дата: Воскресенье, 03.02.2019, 12:31 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 95
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте!
Уважаемые форумчане помогите пожалуйста с макросом, который должен сделать следующие операции:
Имеется столбец А с значениями, которые в цикле меняются. Мне нужно копировать все значения больше нуля в последнюю пустую ячейку столбца B. Помогите пожалуйста! Спасибо!
К сообщению приложен файл: 3554425.xlsb(9.8 Kb)


Сообщение отредактировал djon2012 - Воскресенье, 03.02.2019, 17:46
 
Ответить
СообщениеЗдравствуйте!
Уважаемые форумчане помогите пожалуйста с макросом, который должен сделать следующие операции:
Имеется столбец А с значениями, которые в цикле меняются. Мне нужно копировать все значения больше нуля в последнюю пустую ячейку столбца B. Помогите пожалуйста! Спасибо!

Автор - djon2012
Дата добавления - 03.02.2019 в 12:31
djon2012 Дата: Воскресенье, 03.02.2019, 18:14 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 95
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Сложный макрос наверное.
 
Ответить
СообщениеСложный макрос наверное.

Автор - djon2012
Дата добавления - 03.02.2019 в 18:14
Roman777 Дата: Воскресенье, 03.02.2019, 18:47 | Сообщение № 3
Группа: Проверенные
Ранг: Ветеран
Сообщений: 954
Репутация: 122 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
djon2012, нет. Изложение хромает. Не ясно в каком цикле значения меняются и как. А если это не важно, то зачем было говорит об этом. В общем не ясна задача. Просто вывести в столбец B все значения столбца А>0?
В вашем файле отрицательных значений в принципе не увидел...


Много чего не знаю!!!!

Сообщение отредактировал Roman777 - Воскресенье, 03.02.2019, 18:48
 
Ответить
Сообщениеdjon2012, нет. Изложение хромает. Не ясно в каком цикле значения меняются и как. А если это не важно, то зачем было говорит об этом. В общем не ясна задача. Просто вывести в столбец B все значения столбца А>0?
В вашем файле отрицательных значений в принципе не увидел...

Автор - Roman777
Дата добавления - 03.02.2019 в 18:47
djon2012 Дата: Воскресенье, 03.02.2019, 19:34 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 95
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте Roman777! Согласен с Вами с изложением перемудрил. Цикличное изменение данных в столбце А можно упустить. Да отрицательных значений нет, но есть нули. А вот задачу Вы поняли как раз правильно, вывести в столбец B (последнюю пустую ячейку столбца B) все значения столбца А>0 то есть начиная с 1. Цикличность смены данных в столбце А я допишу в макросе, а вот с этим увы. Спасибо!
К сообщению приложен файл: 6805311.xlsb(9.9 Kb)
 
Ответить
СообщениеЗдравствуйте Roman777! Согласен с Вами с изложением перемудрил. Цикличное изменение данных в столбце А можно упустить. Да отрицательных значений нет, но есть нули. А вот задачу Вы поняли как раз правильно, вывести в столбец B (последнюю пустую ячейку столбца B) все значения столбца А>0 то есть начиная с 1. Цикличность смены данных в столбце А я допишу в макросе, а вот с этим увы. Спасибо!

Автор - djon2012
Дата добавления - 03.02.2019 в 19:34
Roman777 Дата: Понедельник, 04.02.2019, 13:54 | Сообщение № 5
Группа: Проверенные
Ранг: Ветеран
Сообщений: 954
Репутация: 122 ±
Замечаний: 0% ±

Excel 2007, Excel 2013
djon2012,
типа такого?
[vba]
Код
Sub tst()
    Dim v
    Dim i&, bmax&
    v = Cells(1, 1).Resize(Cells(Rows.Count, 1).End(xlUp).Row)
    bmax = Cells(Rows.Count, 2).End(xlUp).Row
    For i = 1 To UBound(v, 1)
        If (v(i, 1) > 0) Then
            If bmax = 1 Then
                If Cells(bmax, 2) <> "" Then
                    bmax = bmax + 1
                End If
            Else
                bmax = bmax + 1
            End If
            Cells(bmax, 2) = v(i, 1)
        End If
    Next i
End Sub
[/vba]


Много чего не знаю!!!!
 
Ответить
Сообщениеdjon2012,
типа такого?
[vba]
Код
Sub tst()
    Dim v
    Dim i&, bmax&
    v = Cells(1, 1).Resize(Cells(Rows.Count, 1).End(xlUp).Row)
    bmax = Cells(Rows.Count, 2).End(xlUp).Row
    For i = 1 To UBound(v, 1)
        If (v(i, 1) > 0) Then
            If bmax = 1 Then
                If Cells(bmax, 2) <> "" Then
                    bmax = bmax + 1
                End If
            Else
                bmax = bmax + 1
            End If
            Cells(bmax, 2) = v(i, 1)
        End If
    Next i
End Sub
[/vba]

Автор - Roman777
Дата добавления - 04.02.2019 в 13:54
djon2012 Дата: Понедельник, 04.02.2019, 19:38 | Сообщение № 6
Группа: Пользователи
Ранг: Участник
Сообщений: 95
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Roman777 большое вам спасибо, макрос работает именно так как мне нужно yes
 
Ответить
СообщениеRoman777 большое вам спасибо, макрос работает именно так как мне нужно yes

Автор - djon2012
Дата добавления - 04.02.2019 в 19:38
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование значений >0 в послед. пустую ячейку столбца (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!