Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Объединение ячеек по строкам... / 3 сообщений из 3, страница 1 из 1
29.12.2004, 16:02
    #32850098
hudoi
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение ячеек по строкам...
Просьба подсказать путь решения проблемы.


Имеется таблица на 36 тыс. записей.

В столбце «А» находятся номера кодов оборудования. В столбце «В» названия оборудования.
Но при импорте, из файла txt получилось так, что текст названий оборудования был разбит на части (не все) и помещен ниже лежащие ячейки (в столбце «В»). Количество этих ячеек зависит от длины названия и может быть произвольным.
Необходимо реализовать возможность (может в виде макроса), что бы при его выполнении система просматривала в столбце «А» содержащего код оборудования наличие пустых ячеек начиная с самого верхнего номера. И соответственно объединяла данные текстовых ячеек относящихся к данному коду оборудования и помещала данные в новый столбец (например»С») в той же строке где находиться номер кода оборудования.
Затем система переходит к следующему номеру кода оборудования и выполняет аналогичную задачу. Если пустых ячеек ниже номера кода нет, то система просто переносит (копирует) название оборудования в соседнюю ячейку столбца «С»

И т.д.

Прилагаю файл с образцом данных.
Заранее благодарю тех, кто сможет подсказать путь решения задачи…
...
Рейтинг: 0 / 0
29.12.2004, 23:47
    #32850655
vkle
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение ячеек по строкам...
Образца не видать.....
Код примерно такой
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub testMacros()
  Dim str As String
  Dim pre As Long
  pre =  1  ' строки с 1
  For i = pre To  36000  ' по 36000
    If Range("A" & i) = "" Then
      str = str & " " & Range("B" & i)
    Else
      Range("C" & pre) = str
      str = Range("B" & i)
      pre = i
    End If
  Next
End Sub
...
Рейтинг: 0 / 0
30.12.2004, 20:31
    #32852171
Fuzzy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Объединение ячеек по строкам...
Образец txt-файла можно посмотреть? И второй вопрос -- а на что такая обработка? Конечная цель, в смысле?
У меня есть подозрение, что всё это можно одной строкой проделать... :)
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Объединение ячеек по строкам... / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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