| Вопрос: поиск строки по ячейке | Добавлено: 04.06.08 15:29 |
Автор вопроса:  sashok60
|
| Подскажите, такая ситуация: в столбце нужно найти все не пустые ячейки, и перенести строки (где пустые ячейки) на другой лист. Как узнать по ячейки строку где она находиться? |
| Ответы | Всего ответов: 38 |
|
Номер ответа: 1 Автор ответа:  Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #1 | Добавлено: 04.06.08 15:31 |
| Заходь в чат. | ||
|
Номер ответа: 2 Автор ответа: sashok60 Вопросов: 3 Ответов: 23 |
Профиль | | #2 | Добавлено: 04.06.08 16:07 |
| зашел | ||
|
Номер ответа: 3 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #3 | Добавлено: 04.06.08 21:12 |
|
Private Sub Macro1() Dim RowIndex As Long Dim tmpRange As String Sheets("Лист1"  .Select
For RowIndex = 2 To 18 If Len(Cells(RowIndex, vbNull).Value) = 0 Then _ tmpRange = tmpRange & CStr(RowIndex) & ":" & CStr(RowIndex) & "," Next If Len(tmpRange) > vbNull Then tmpRange = Left$(tmpRange, Len(tmpRange) - vbNull) Range(tmpRange).Select Selection.Copy Sheets("Лист2" .Select
Cells(Sheets("Лист2" .UsedRange.Rows.Count + 1, 1).Select
ActiveSheet.Paste Sheets("Лист1" .Select
Selection.Delete Range("A1" .Select
End If End Sub |
||
|
Номер ответа: 4 Автор ответа: sashok60Вопросов: 3 Ответов: 23 |
Профиль | | #4 | Добавлено: 05.06.08 09:00 |
|
Cells(Sheets("Лист2".UsedRange.Rows.Count + 1, 1).Select,
это я не совсем понял, выдает ошибку |
||
|
Номер ответа: 5 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #5 | Добавлено: 05.06.08 09:25 |
|
Попробуй
Cells(ActiveSheet.UsedRange.Rows.Count + 1, 1).Select или вообще закомментируй эту строку и проверь но что-то подсказывает мне что это не поможет тут всё дело в документе, у меня всё работает |
||
|
Номер ответа: 6 Автор ответа: sashok60Вопросов: 3 Ответов: 23 |
Профиль | | #6 | Добавлено: 05.06.08 09:30 |
| не помогает останавливается на вставке ActiveSheet.Paste | ||
|
Номер ответа: 7 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #7 | Добавлено: 05.06.08 09:34 |
| Я вчера пол дня продолбался над этим, пришел к выводу, что код нужно писать под конкретный документ, иначе получается то, что получается... | ||
|
Номер ответа: 8 Автор ответа: sashok60Вопросов: 3 Ответов: 23 |
Профиль | | #8 | Добавлено: 05.06.08 09:39 |
| а ты на 2003 excel делал? у меня 2007 | ||
|
Номер ответа: 9 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #9 | Добавлено: 05.06.08 09:45 |
|
Ёшкин кот всегда старался уточнять, а тут память подвела.
Да, на 2003 пишу. |
||
|
Номер ответа: 10 Автор ответа: sashok60Вопросов: 3 Ответов: 23 |
Профиль | | #10 | Добавлено: 05.06.08 09:47 |
| и что делать? | ||
|
Номер ответа: 11 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #11 | Добавлено: 05.06.08 09:54 |
|
Это уже риторика.
Кто виноват? определились Что делать? незнаю мне 2007 даром ненужен |
||
|
Номер ответа: 12 Автор ответа: sashok60Вопросов: 3 Ответов: 23 |
Профиль | | #12 | Добавлено: 05.06.08 10:03 |
| а в че разница, я непонимаю, язык один и тот же, типы данных тоже | ||
|
Номер ответа: 13 Автор ответа: SmithICQ: adamis@list.ru Вопросов: 153 Ответов: 3632 |
Профиль | | #13 | Добавлено: 05.06.08 10:15 |
|
Видимо разница в командах самого Excel.
Незнаю 2007 и как исправить тоже незнаю. |
||
|
Номер ответа: 14 Автор ответа: sashok60Вопросов: 3 Ответов: 23 |
Профиль | | #14 | Добавлено: 05.06.08 10:50 |
| ладно буду пыхтеть, Спасибо за ответ | ||
|
Номер ответа: 15 Автор ответа: sashok60Вопросов: 3 Ответов: 23 |
Профиль | | #15 | Добавлено: 05.06.08 11:10 |
| Попробывал на 2003 тоже самое, непонимаю в чем дело? | ||