Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
поиск последнего столбца диапазона
 
#1
03.12.2008 19:01:16
Здраствуйте, пользуюсь макросом поиска последнего столбца или последней строки следующим образом  
iLastColumn = Cells(1, Columns.Count).End(xlToLeft).Column 'последний заполненный столбец в 1 ряду  
Вопрос: как сделать что бы последний столбец искался не в одном ряду а в диапазоне допустим строк 1:10?
 
 
 
#2
03.12.2008 19:47:22
Точно не знаю, но попробуйте так  
 
Sub LastColumn()  
Dim i&, iLastColumn() As Long  
   ReDim iLastColumn(1 To 10)  
   For i = 1 To 10  
       iLastColumn(i) = Cells(i, Columns.Count).End(xlToLeft).Column  
   Next  
   MsgBox "Последний столбец: " & WorksheetFunction.Max(iLastColumn()), , ""  
End Sub
 
 
 
#3
03.12.2008 19:59:49
Ну конечно же надо было через переменную)))Извините а можно еще поинтересоваться каким образом можно выделить диапозон (А1:iLastColumn(i))т.е. первая ячейка листа по найденную через выше указанный поиск
 
 
 
#4
03.12.2008 20:04:16
http://www.planetaexcel.ru/forum.php?thread_id=7373
 
 
 
#5
03.12.2008 21:10:37
Всем спасибо!!!
 
 
 
#6
10.03.2012 04:57:14
Заполнено несколько блоков, в последнем в строках разное число заполненных ячеек. Необходимо определить последний столбец (последнюю ячейку) выбранной строки.  
Прохожу циклом:  
 
For j = 16 To 256  
  If .Cells(i, j).Value = "" Then Exit For  
Next j  
 
Далее  
Arr = .Range(.Cells(i, 16), .Cells(i, j-1)).Value  
 
Можно проще? (выбор строки не нужно, только определение столбца строки i).
 
 
 
#7
10.03.2012 07:46:55
Sub Find_Clmn2()  
Dim i&  
   With Worksheets("Лист1")  
       For i = 3 To 5  
           MsgBox i & " строка, ячеек в блоке - " & .Cells(i, 256).End(xlToLeft).Column - 15  
       Next i  
   End With  
End Sub
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#8
10.03.2012 11:27:30
Спасибо.  
 
Еще одно доказательство того, что ночью спать нужно :)  
Писал точно так (.End(xlToLeft).Column), но против фактов не попрешь - не так, значит...
 
 
 
#9
10.03.2012 11:41:26
Виктор, в общем случае это не идентичные способы, конечно :)  
если в ячейках есть функции, возвращающие пустую строку, то результаты могут быть разные.
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#10
10.03.2012 23:27:24
Это понятно. В моем случае правее девственная чистота :)
 
 
 
Страницы: 1
Читают тему
Наверх