Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
срочно
 
#1
17.08.2009 16:18:12
Привет!  
Помогите, плз, всю голову сломала!  
У меня есть таблица из 3х колонок, в последней указаны значения, мне сначала необходимо разбить значения на столбцы (отдельно дату и отдельно сумму), а потом еще сделать таблицу всего из 3х колонок, что бы дата и сумма были не в столбцах, а в строках, по каждому коду.  
Надеюсь, понятно объяснила. Файлик с кусочком таблицы во вложении.  
Буду очень признательна за помощь
 
 
 
#2
17.08.2009 16:37:32
Такую задачу проще всего решить макросом.  
 
Вот весь код:  
 
Sub test()  
   On Error Resume Next: Dim cell As Range, ra As Range: Application.ScreenUpdating = False  
   Set ra = Range([A1], Range("A" & Rows.Count).End(xlUp))
   Dim sh As Worksheet: Set sh = Worksheets.Add: sh.Tab.Color = vbGreen: Dim newrow As Range  
   sh.[a1:d1] = Array("Код (номер)", "Код(уникальный)", "Дата", "Сумма")
   sh.[a1:d1].Interior.Color = vbYellow
   For Each cell In ra.Cells  
       arr = Split(cell.Next.Next, ".   ")  
       For i = LBound(arr) To UBound(arr)  
           txt = Trim(arr(i))    ' дата: 26/02/2008, сумма:   2200  
           If Len(txt) > 25 Then  
               Set newrow = sh.Range("A" & Rows.Count).End(xlUp).Offset(1).EntireRow  
               newrow.Cells(1) = cell: newrow.Cells(2) = cell.Next  
               newrow.Cells(3) = CDate(Mid(txt, 7, 10)): newrow.Cells(4) = Val(Mid(txt, 25))  
           End If  
       Next i  
   Next cell  
   sh.UsedRange.EntireColumn.AutoFit: sh.[a2].Select: ActiveWindow.FreezePanes = True
End Sub  
 
 
 
Пример можно скачать здесь:  
http://excelvba.ru/XL_Files/Sample__17-08-2009__18-36-22.zip  
 
Для формирования таблицы нажмите зелёную кнопочку.
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#3
17.08.2009 16:55:32
The_Prist, до разбиения текста на столбцы я и сама догадалась, вопрос как это все вывести в столбец(((
 
 
 
#4
17.08.2009 16:59:01
{quote}{login=The_Prist}{date=17.08.2009 04:57}{thema=Re: }{post}{quote}{login=}{date=17.08.2009 04:55}{thema=}{post}The_Prist, до разбиения текста на столбцы я и сама догадалась, вопрос как это все вывести в столбец((({/post}{/quote}  
А... Код EducatedFool Вам должен идеально подойти.{/post}{/quote}  
 
А как мне все это совместить???
 
 
 
#5
17.08.2009 17:01:11
А никак :)  
 
Сначала запускаете макрос от The_Prist, потом - мой.
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#6
17.08.2009 17:02:37
{quote}{login=EducatedFool}{date=17.08.2009 05:01}{thema=}{post}А никак :)  
 
Сначала запускаете макрос от The_Prist, потом - мой.{/post}{/quote}  
 
Спасибо, будем воплощать в жизнь))))
 
 
 
#7
17.08.2009 17:07:38
Вот объединённый вариант:  
 
http://excelvba.ru/XL_Files/Sample__17-08-2009__19-06-52.zip
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#8
17.08.2009 17:16:18
Спасибо за помощь)
 
 
 
#9
17.08.2009 17:31:10
а почему не использовать textImportWizard ?  
он сразу раскидает все по колонкам... Эта ботва доступна в контекстной иконке, которая появляется после вставки
 
 
 
#10
17.08.2009 17:32:16
{quote}{login=V.B.McRoss}{date=17.08.2009 05:31}{thema=}{post}а почему не использовать textImportWizard ?  
он сразу раскидает все по колонкам... Эта ботва доступна в контекстной иконке, которая появляется после вставки{/post}{/quote}  
V.B.McRoss, а где это должно быть?
 
 
 
#11
17.08.2009 17:42:58
{quote}{login=}{date=17.08.2009 05:32}{thema=Re: }{post}{quote}{login=V.B.McRoss}{date=17.08.2009 05:31}{thema=}{post}а почему не использовать textImportWizard ?  
он сразу раскидает все по колонкам... Эта ботва доступна в контекстной иконке, которая появляется после вставки{/post}{/quote}  
V.B.McRoss, а где это должно быть?{/post}{/quote}  
 
1. как уже писАл, Эта ботва доступна в контекстной иконке, которая появляется после вставки. т.е. после того, как вы нажали "вставить" или ктрл+V, рядом со вставленным диапазоном на рабочем листе появляется иконка, очень похожая на иконку "вставить" - там нужно выбрать пункт TextImportWizard (или мастер импорта текста, если у Вас русскоговорящий ексель). Этот пункт появляется если вы вставляли данные из внешних по отношению к екселю программ.  
 
2. Тоже самое можно получить, если пойти в меню - Data/Text to columns (Данные/ Текст по столбцам)  
 
и, заметьте, никаких злобных макросоФФ )))
 
 
 
#12
17.08.2009 17:50:33
{quote}{login=The_Prist}{date=17.08.2009 05:46}{thema=Re: }{post}{quote}{login=}{date=17.08.2009 04:55}{thema=}{post}до разбиения текста на столбцы я и сама догадалась, вопрос как это все вывести в столбец((({/post}{/quote}{/post}{/quote}  
 
но и нас так просто не возьмешь ))  
как вам это?    
TRANSPOSE()  
или  
ТРАНСП()  
 
в сочетании с "&" (ну если нужно, конечно)
 
 
 
#13
17.08.2009 17:56:58
{quote}{login=}{date=17.08.2009 05:50}{thema=Re: Re: }{post}{quote}{login=The_Prist}{date=17.08.2009 05:46}{thema=Re: }{post}{quote}{login=}{date=17.08.2009 04:55}{thema=}{post}до разбиения текста на столбцы я и сама догадалась, вопрос как это все вывести в столбец((({/post}{/quote}{/post}{/quote}  
 
но и нас так просто не возьмешь ))  
как вам это?    
TRANSPOSE()  
или  
ТРАНСП()  
 
в сочетании с "&" (ну если нужно, конечно){/post}{/quote}  
 
 
транспонировать не подходит, у меня в файле слишком много значений, которые необходимо будет вручную тянуть((
 
 
 
Страницы: 1
Читают тему
Наверх
Loading...