Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Ада и другие языки _ Копирование строк
Автор: @^WARlock^@ 24.09.2007 17:01
Люди кто знает подскажите.
Начиная с 1-ой строки 2-ого столбца, я забиваю текст вниз до строки10. Как сделать, чтобы копировались те строки, у которых 2-ой столбец имеет текст. Эти скопированные строки должны встасляться по порядку(вниз) начиная с 10-ой строки.
Если кому, что не понятно я прикрепил файл с наглядным примером. В Данном случаи копируется только одна строка, а должно 3.
1.xls ( 29 килобайт )
Кол-во скачиваний: 581
Автор: FreeMan 24.09.2007 22:38
да возьмись ты наконец и прочитай мануал... это ж элементарно
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
Но в данном случае копируется только текст находящийся в ячейке, а не сама ячейка. Вот например если в копируемой ячейке текст будет заключен в рамку, то он скопируется без рамки. А как сделать, чтобы ячейка копировалась полностью (вместе с рамкой)?