Помощь - Поиск - Пользователи - Календарь
Полная версия: Копирование строк
Форум «Всё о Паскале» > Современный Паскаль и другие языки > Ада и другие языки
@^WARlock^@
24.09.2007 17:01
Люди кто знает подскажите.

Начиная с 1-ой строки 2-ого столбца, я забиваю текст вниз до строки10. Как сделать, чтобы копировались те строки, у которых 2-ой столбец имеет текст. Эти скопированные строки должны встасляться по порядку(вниз) начиная с 10-ой строки.

Если кому, что не понятно я прикрепил файл с наглядным примером. В Данном случаи копируется только одна строка, а должно 3.
Нажмите для просмотра прикрепленного файла
FreeMan
24.09.2007 22:38
да возьмись ты наконец и прочитай мануал... это ж элементарно
Код
Sub copy_some_shit()

Dim i
Dim j
i = 1
j = 10
While (i < 10)
If Not (Cells(i, 2).Value = "") Then
Cells(j, 2).Value = Cells(i, 2).Value
j = j + 1
End If
i = i + 1
Wend

End Sub
@^WARlock^@
29.09.2007 14:14
Но в данном случае копируется только текст находящийся в ячейке, а не сама ячейка. Вот например если в копируемой ячейке текст будет заключен в рамку, то он скопируется без рамки. А как сделать, чтобы ячейка копировалась полностью (вместе с рамкой)?
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.