{quote}{login=qw}{date=07.05.2011 07:47}{thema=CurrentRegion для отдельно взятого столбца}{post}Всем здравствуйте  
 
Возможно-ли применить CurrentRegion для отдельно взятого столбца(в примере для столбца 1).  
(Нужно для определения начала и конца диапозона в конкретном столбце){/post}{/quote}  
 
здравствуйте.  
 
непонятно:  
пишете "(в примере для столбца 1)"  
в вашем примере данные в столбце 1 начинаются с 7-й строки.  
у вас стоит 6.  
?  
это раз.  
 
а вам точно нужен "аналог" именно CurrentRegion для столбца?  
похоже, что вы хотите получить UsedRange.  
это два.  
 
и

[a11].CurrentRegion.Select
[k1] = ActiveCell.CurrentRegion.Row 'Начало диапозона
[k2] = ActiveCell.CurrentRegion.Row + ActiveCell.CurrentRegion.Rows.Count - 1 'Конец диапозона
 
Макрос выдает Начало диапозона=6(это Начало всего диапозона(по неск.столбцам))  
Мне нужно чтоб выдавал 7(Начало диапозона по столбцу 1)  
 
"похоже, что вы хотите получить UsedRange."  
 
Мне нужен Конец именно конкретного диапозона (их много)  
 
Приложил более подробный пример

[a11].end(xlup).row
[a11].end(xldown).row
 
вы про это?

"[a11].end(xlup).row
[a11].end(xldown).row
 
вы про это?"  
 
Да,именно это было мне нужно.  
 
ikki,KukLP спасибо!

думать сегодня совсем неохота?  
почитайте справку по свойству End для объекта Range.  
а можно и без этого - по аналогии.