Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Работа со штрих-кодами
 
#1
06.04.2010 22:12:15
Всем доброго времени суток! Помогите плиз!!! Есть файл с несколькими тысячами позиций. В левом столбце код товара, в правом штрих-код. Получается так, что одному коду товара может соответствовать несколько штрих-кодов. Необходимо чтобы, штрих-кода, соответствующие одному коду товара, шли не в столбик, а в строчку.    
 
Помогите, плиз, глаза уже болят задвоенность штрих-кодов.
 
 
 
#2
06.04.2010 22:26:26
А зачем в результате оставлять строки без штрих-кода, например строки 3 и 6?
 
 
 
#3
06.04.2010 22:29:31
не принципиально, можно и удалить
 
 
 
#4
06.04.2010 22:48:26
Посмотрите пример макроса в файле: http://excelvba.ru/XL_Files/Sample__07-04-2010__0-47-45.zip    
 
вот весь код:      
Код
Sub test()   
    Dim cell As Range, ra As Range: Application.ScreenUpdating = False   
    Set ra = Range([b3], Range("b" & Rows.Count).End(xlUp))   
    On Error Resume Next   
    For Each cell In ra.Cells   
        cell.Next.Cut Range([b2], cell.Offset(-1)).Find(cell, , , xlWhole).EntireRow.Cells(Columns.Count).End(xlToLeft).Next   
    Next cell   
    ActiveSheet.UsedRange.EntireColumn.AutoFit   
End Sub
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#5
06.04.2010 22:51:30
А вот вариант с удалением ненужных строк: http://excelvba.ru/XL_Files/Sample__07-04-2010__0-50-48.zip  
 
добавил в макрос всего одну строку:  
Код
Range([b2], Range("b" & Rows.Count).End(xlUp)).Offset(, 1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#6
07.04.2010 14:42:27
Спасибо большое!!! Все получилось!!!!!
 
 
 
Страницы: 1
Читают тему
Наверх