![]() |
Модераторы: mihanik |
![]() ![]() ![]() |
|
zarrr |
|
|||
Новичок Профиль Группа: Участник Сообщений: 6 Регистрация: 17.11.2008 Репутация: нет Всего: нет |
Форумчане помогли отличным кодом... работающим по столбцу А
Private Sub CommandButton2_Click() Dim xd As String Dim xxd As String Dim L As Integer L = 3000 For x = 1 To L xd = Cells(x, 1) For xx = x + 1 To L xxd = Cells(xx, 1) If x = L Then Exit Sub ElseIf xd = xxd Then Rows(xx).Delete xx = xx - 1 L = L - 1 End If Next xx = x + 1 Next End Sub плиз подскажите как заставить работать его по В? заранее благодарен |
|||
|
||||
Akina |
|
|||
Советчик ![]() ![]() ![]() ![]() Профиль Группа: Модератор Сообщений: 20581 Регистрация: 8.4.2004 Где: Зеленоград Репутация: 26 Всего: 454 |
-------------------- О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума. |
|||
|
||||
zarrr |
|
|||
Новичок Профиль Группа: Участник Сообщений: 6 Регистрация: 17.11.2008 Репутация: нет Всего: нет |
спасибо
|
|||
|
||||
![]() ![]() ![]() |
Правила форума "Программирование, связанное с MS Office" | |
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще!
|
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |