Перебор столбцов в использованной области активного листа:  
 
For each st in ActiveSheet.UsedRange.Columns  
   Debug.Print st.Column  
Next st  
 
перебор с выходом если столбец пуст:  
 
For each st in ActiveSheet.UsedRange.Columns  
   If WorksheetFunction.CountA(st) = 0 then    
       Debug.Print st.Column  
       Exit For  
   End if  
Next st  
 
перебор с выходом и определением буквы столбца (бесполезная для VBA информация):  
 
For Each st In ActiveSheet.UsedRange.Columns  
   If WorksheetFunction.CountA(st) = 0 Then  
       Debug.Print Replace(Split(st.EntireColumn.Address, ":")(0), "$", "")  
       Exit For  
   End If  
Next st

оно, конечно, аналогично, но не идентично..  
IsNull Function  
       
 
Returns a Boolean value that indicates whether an expression contains no valid data (Null).  
 
Syntax  
 
IsNull(expression)  
 
The required expression argument is a Variant containing a numeric expression or string expression.  
 
Remarks  
 
IsNull returns True if expression is Null; otherwise, IsNull returns False. If expression consists of more than one variable, Null in any constituent variable causes True to be returned for the entire expression.  
 
The Null value indicates that the Variant contains no valid data.    
 
 
 
Null is not the same as Empty!!!  
 
 
, which indicates that a variable has not yet been initialized. It is also not the same as a zero-length string (""), which is sometimes referred to as a null string.  
 
Important   Use the IsNull function to determine whether an expression contains a Null value. Expressions that you might expect to evaluate to True under some circumstances, such as If Var = Null and If Var <> Null, are always False. This is because any expression containing a Null is itself Null and, therefore, False.

есть такая кнопка... f1 :)

Кстати, а может ли это быть из-за того, что формат у ячейки стоит общий???? Ну по идеи же IsDate должна проверить и если можно перевести в дату, значит True. Я правильно поняла?

{quote}{login=}{date=29.01.2008 06:55}{thema=Re: }{post}Общий формат вам возвращает значение 39475 вместо 28.01.2008. Откуда функция IsDate, получив значение 39475, должна проверить, что его можно перевести в дату? "1" в общем формате тоже переводится в дату 01.01.1900. По Вашей логике IsDate всегда бы возвращала True, кроме отрицательных выражений  
А уж VBA и подавно не знает что там подразумевалось под числом 39475, он просто получает значение ячейки Worksheets("Лист1").Cells(k, I).Value. Вот оно будет в формате даты VBA и получит дату.{/post}{/quote}  
 
Дело в том, что я не знаю в каком столбце у меня будет дата изначально. Данные выгружаются в Excel из программы и может получиться разное количество столбцов (так вот криво работают вместе эта программа и Excel). А я пишу макрос, который переписывает нужные данные в соответствующие поля, а остальные затирает. Так вот, мне надо узнать, если в столбце сожержится дата, то переписать ее в столбец с датой. Впринципе можно как-то маску использовать, можете подсказать функцию проверки на сооветствие данных ячейки конкретной маске???

{quote}{login=Лузер}{date=30.01.2008 11:22}{thema=}{post}А столбцы/строки имеют заголовки? Можно искать заголовок, затем смещаться к нужной строке/столбцу.  
Я так делаю, когда получаю отчеты из другой организации, они то добавят столбец, то уберут, то еще что-нибудь. А отчетов вагон, а тут макрос запустил - он все сам нашел.{/post}{/quote}  
Столбцы имеют заголовки, но только в форме. Выгруженные данные заголовков не имеют

{quote}{login=Sonia}{date=30.01.2008 11:44}{thema=Re: }{post}{quote}{login=Лузер}{date=30.01.2008 11:22}{thema=}{post}А столбцы/строки имеют заголовки? Можно искать заголовок, затем смещаться к нужной строке/столбцу.  
Я так делаю, когда получаю отчеты из другой организации, они то добавят столбец, то уберут, то еще что-нибудь. А отчетов вагон, а тут макрос запустил - он все сам нашел.{/post}{/quote}  
Столбцы имеют заголовки, но только в форме. Выгруженные данные заголовков не имеют{/post}{/quote}Форма екселевская, в том же файле?  
Может пример прикрепите?

{quote}{login=Sonia}{date=30.01.2008 02:10}{thema=Re: Re: Re: }{post}{quote}{login=Лузер}{date=30.01.2008 01:26}{login=Лузер}{post}Форма екселевская, в том же файле?  
Может пример прикрепите?{/post}{/quote}  
 
Форма на том же листе. Выкладываю пример.{/post}{/quote}  
 
А где пример? Почему то не подцепился...

Исправьте кусок кода на то что приведено ниже  
И будет вам счастье, хоть и маленькое  
 
 
k = 20 ' Начало со столбца T  
   Do  
   ' Сделано для корректного переноса Примечаний, включающих символ ";"  
     If Worksheets("Лист1").Cells(I, k).Value Like "??.??.*" Then  
              Range("I" + CStr(I)) = Worksheets("Лист1").Cells(I, k).Value  
     Else  
        If Not (Worksheets("Лист1").Cells(I, k).Value = "") Then  
           Range("H" + CStr(I)) = Range("H" + CStr(I)) + ";" + Worksheets("Лист1").Cells(I, k).Value  
        End If  
        'Range("I" + CStr(I)) = Worksheets("Лист1").Cells(k + 1, I).Value  
     End If  
     
     
   'Worksheets("Лист1").Cells(I, k).Value = Empty  
         
   k = k + 1  
     
   Loop Until Worksheets("Лист1").Cells(I, k).Value = ""

{quote}{login=ДЛ}{date=30.01.2008 03:53}{thema=}{post}Исправьте кусок кода на то что приведено ниже  
И будет вам счастье, хоть и маленькое  
{/post}{/quote}  
 
Почему маленькое??? И почему в некоторых строчках в Cells I и k поменяны местами??  
 
Да, последняя значащая ячейка обязательно дата. Кроме нее есть в строке еще дата (2 столбец) - дата документа.

"dd.mm.yyyy" - это формат  
А маска - это определенные символы (в Вашем случае точки) и "?" как любой один символ, а "*" как любые символы.

{quote}  
Про cells(i,k)  
Пробегите ваш код из редактора VBA Exsel (нажимая F8)  
В окно Watch : View/Watch Window в сплывающем окне по правой  
кнопке мыши добавьте  
   
Worksheets("Лист1").Cells(I, k).Address  
Worksheets("Лист1").Cells(k, I).Address  
 
Это адреса ячеек которые вы перебираете, думаю всё станет ясно.  
 
Но всё таки поробавпли заменить или нет?  
Если заменили работает?{/post}{/quote}  
 
Да, заменила. Спасибо большое!!!! Все работает!! :) Сейчас еще пошагово пробегусь и Watch посмотрю, чтобы окончательно разобраться ;)

Решил что эта тема подходит к моему вопросу.  
Вопрос-    
Как в екселе заменить пустоту "" на null? т.е. есть ячайки без данных но не пустые

{quote}{login=Казанский}{date=24.01.2011 11:21}{thema=Cross}{post}Вы, видимо, хотите очистить ячейки?  
 
if MyCell="" then MyCell.ClearContents 'очистить содержимое, сохранить форматирование  
 
if MyCell="" then MyCell.Clear 'очистить содержимое и форматирование{/post}{/quote}  
Очень похоже на правду. только не понял как его правильно использывать. через поиск или объявлением таблици. Я в ВБА полный нуб, только осваиваюсь. Начинаю с простого "запись макроса". стоп макрос. потом смотрю код и начинаю его оптимизировать - так и развиваюсь...((