VBNet - Форум - Программисты!!!! HELP!!!!!

Вопрос: Программисты!!!! HELP!!!!! Добавлено: 19.05.06 23:32

Автор вопроса: Lena

Исходный файл:
Есть некий файл с огромным количеством данных.
Первый столбец данных это нумерация.
Второй – значения меняются от 1501 до 1520 в возрастающем порядке (например 13шт. -1501, 34шт.- 1502, 100шт. – 1503…………..76шт. - 1520). Следующие столбцы местят некую информацию. Верхняя левая точка таблицы «А2»

Задача такая:
Нужно массив информации, который вмещает, например 1501, скопировать в другой файл на лист под названием 1501 в ячейку «В2» и пронумеровать. И так со всеми массивами которые вмещают данные от 1501 до 1520.
Другой файл с листами под конкретными названиями (1501…..1520) имеется.

Пробовала переделать найденные примеры:

Sub search()
    Worksheets("лист2").Activate
    For Each cell In Range("b1:b200")
        If cell = "отдел" Then 'если значение в ячейке = "отдел"
        cell.Select
        ActiveCell.Offset(0, -1).Select 'сдвигаемся на одну ячейку влево
        Selection.Copy 'копируем данные в этой ячейке (текст)
        Workbooks("Фонды.xls").Worksheets("Sheet1").Activate 'открываем книгу-получатель
        Range("b6").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
        ActiveCell.Offset(1, 0).Select
        Workbooks("макрос.xls").Worksheets("лист2").Activate
        End If
        Next cell
End Sub

И

Sub search()
Dim i As Long, rg As Range
i = Workbooks("Фонды.xls").Worksheets(1).Cells(Rows.Count, 2).End(xlUp).Row + 1
    Worksheets("лист1").Activate
    For Each rg In Range("b1:b200")
        If rg = "отдел" Then 'если значение в ячейке = "отдел"
            rg.Offset(0, -1).Copy Workbooks("Фонды.xls").Worksheets(1).Cells(i, 2)
            i = i + 1
        End If
    Next
End Sub

Не получилось!!!!!
Если кто может ПОМОГИТЕ!!!!!
Ответить

Ответы Всего ответов: 2

Номер ответа: 1 Автор ответа: Незнайка Вопросов: 7 Ответов: 188	Профиль \| \| #1	Добавлено: 26.05.06 10:27
	Впринципе ясно, но лучше сбрось файл "пример" по электронке. И поточнее опиши про: Нужно массив информации, который вмещает, например 1501, скопировать в другой файл на лист под названием 1501 в ячейку «В2». Потому как непонятно как в ячейку «В2» можно скопировать массив. Может с «В2» начать вывод массива? Ответить

Номер ответа: 2 Автор ответа: Незнайка Вопросов: 7 Ответов: 188	Профиль \| \| #2	Добавлено: 26.05.06 10:33
	Впринципе ясно, но лучше сбрось файл "пример" по электронке. И поточнее опиши про: Нужно массив информации, который вмещает, например 1501, скопировать в другой файл на лист под названием 1501 в ячейку «В2». Потому как непонятно как в ячейку «В2» можно скопировать массив. Может с «В2» начать вывод массива? Ответить

Страница: 1 |