Цикл по столбцам

[niqx]

Ребят, не кидайте плиз помидорами, поиском не нашел (наверное, просто вопрос настолько тупой, что его никто не спрашивает)

Как задать цикл по столбцам листа, чтобы он просматривал, например все ячейки строки из диапазона M-7 до BZ-7? Ругается если я использую строковую переменную for j = "M" to "BZ", да и вообще, все что знаю (а знаю, как вы поняли, я немного) перепробовал...

Заранее спасибо!

[КаМММ]

Тоесть тебе нужны столбцы с 13 по 78
For i = 13 To 78
Cells(7, i).Value .........
Next i

[SAS888]

А если хочется, чтобы в коде макроса было нагляднее, то можно так:

For i = [M7].Column To [BZ7].Column
        Cells(7, i) = ...
    Next

[Serge_Bliznykov]

и я свои пять копеек добавлю...
а можно и так (особенно удобно когда не одна строка/столбец):

Dim iCells As Range

For Each iCells In Range("M7:BZ7")
   ... что то делаем с iCells
Next iCells

[КаМММ]

В общем яйцо можно разбить многими способами.
Где-то видел 100!!! способов записи обращения к ячейке.
VBA - Великий и могучий - почти как русский!
а вот и ссылочкаhttp://msoffice.nm.ru/faq/macros/range.htm#faq14

[niqx]

Огромное вам спасибо. Я это для девушки одной делаю, надеюсь, сегодня мне воздастся

[niqx]

Хм... Я до этого использовал Range(i & j).Value = ... Там сначала идет буква столбца в строковом формате, потом номер строки, я правильно понимаю? А в cell(i, j) - сначала номер строки, потом номер столбца?

В общем, он мне опять ошибку выдает в такой строке:

For list = 1 To 100 'листы первого документа
For i = 9 To 100 'строки первого документа
For j = 13 To 78 'столбцы второго документа

If Book.Worksheets(list).Cell(i, 3).Value = ThisWorkbook.Worksheets("Результат" ).Cell(3, j).Value Then ...

Пишет - Object doesnt support this property or method

Book - это другая книга, открытая пользователем... Не суть важно...

[КаМММ]

попробуйте для начала присвоить сторковым переменным значения ячеек,
а затем сравнить переменные

[niqx]

For list = 1 To 100

For i = 9 To 100
For j = 13 To 78

oT = Book.Worksheets(list).Cell(i, 3).Value
nT = ThisWorkbook.Worksheets("Результат" ).Cell(3, j).Value
If oT = nT Then ...

Такую же ошибку пишет... Переменные строковые

[КаМММ]

А можно весь файлик (лучше оба)
С макросом и целью преобразований
А то я что-то не могу понять причины ошибки.