Счетчик в таблице не переходит по столбцам

[bugatti123]

здараствуйте. вот такой код (сильно не ругайтесь день как учу)
Sub Ìàêðîñ5()
'
' Ìàêðîñ5 Ìàêðîñ
'
'ñòîëáåö
Dim B As Long
B = 6
'ñòðîêà
Dim A As Long
A = 2
'ñíÿòûé íîìåð
Dim C As Long
C = 1
'îñíîâíîé íîìåð
Dim D As Long
D = 1
'êîëè÷åñòâî îñíîâíûõ ñ÷åò÷èêîâ
Dim F As Integer
F = 1060
'ñòîëáåö îñíîâíûõ
Dim E As Long
E = 12
'ñîõðàíåíèå ñíÿòîãî íîìåðà
Dim R As Long
R = 1
'ñòðîêà ñîõðàíèèÿ
Dim X As Long
X = 1
'ñòðîêà îñíîâíûõ ñ÷åò÷èêîâ
Dim Y As Long
Y = 2
Dim Z As Long
Z = 13
For i = 1 To 6
For m = 1 To F
C = ActiveSheet.Cells(A, B)
Cycle_Start:
D = ActiveSheet.Cells(Y, E)
If C = D Then
R = C
ActiveSheet.Cells(Y, Z) = R
Else
Y = Y + 1
D = 0
GoTo Cycle_Start
End If
Y = 2
A = A + 1
Next m
B = B + 1
Z = Z + 1
Next i
End Sub
в документе 6 столбцов данных и седьмой столбец с которым сравнивают а потом выводит справа совпадения данные с эталонным но почему работает только первый проход а 2,3,4 и тд столбцы не считает хотя счетчики правильно вычисляются отдельно их выводил. подскажите пожалуйста почему такая проблема?

[Shkoda]

Добрый день.

Лучше выложить файл пример и условие, для полного понимания!

[bugatti123]

http://narod.ru/disk/42545682001.5c0...2%2B.xlsm.html

[bugatti123]

там уже сам все рассчитал меняя руками номер столбца но хочется чтоб все сам делал тк это уменьшенная версия того что нужно будет сопоставить а потом над этим другу выборку делать тоже связанную с проходом по всем но уже по строчкам

[Shkoda]

Сообщение от bugatti123

там уже сам все рассчитал меняя руками номер столбца но хочется чтоб все сам делал тк это уменьшенная версия того что нужно будет сопоставить а потом над этим другу выборку делать тоже связанную с проходом по всем но уже по строчкам

У Вас в книге 13 макросов, и понять логику вычисления очень трудно.

Просьба все таки описать условие, макрос будет работать так как Вы захотите, но нужно все понимать.

Конечно не отрицаю что может только мне не понятно, но тогда нужно будет ждать ответа от других форумчан.

[bugatti123]

нужно смотреть только макрос 5

[Shkoda]

Увы без условия не помогу, ждите ответ.

[bugatti123]

вообщем есть документ в нем в красном столбце с заголовком основной находится все возможные используемые а желтые и синие с заголовками типа 02,03,12 и тд числа которые используются на данный момент и вот нужно напротив эталонных чисел выставить встречающиеся числа в желтых и синих столбцах в соответствии с датой как это и сделано в файле который я сделал но почему то программа обрабатывает только один столбец а на второй третий и тд не переходит хотя счетчики срабатывают и я их отдельно вывожу. вот и вопрос что у меня не так в коде

[Shkoda]

Если у вас колонки статические можно так:

 Sub Ìàêðîñ6()
     Dim R, C As Long
     R = 2
     
     
     Do While Cells(R, 12) <> ""
     If WorksheetFunction.CountIf(Range(Cells(2, 6), Cells(100000, 6)), Cells(R, 12)) Then Cells(R, 13) = Cells(R, 12)
     If WorksheetFunction.CountIf(Range(Cells(2, 7), Cells(100000, 7)), Cells(R, 12)) Then Cells(R, 14) = Cells(R, 12)
     If WorksheetFunction.CountIf(Range(Cells(2, 8), Cells(100000, 8)), Cells(R, 12)) Then Cells(R, 15) = Cells(R, 12)
     If WorksheetFunction.CountIf(Range(Cells(2, 9), Cells(100000, 9)), Cells(R, 12)) Then Cells(R, 16) = Cells(R, 12)
     If WorksheetFunction.CountIf(Range(Cells(2, 10), Cells(100000, 10)), Cells(R, 12)) Then Cells(R, 17) = Cells(R, 12)
     If WorksheetFunction.CountIf(Range(Cells(2, 11), Cells(100000, 11)), Cells(R, 12)) Then Cells(R, 18) = Cells(R, 12)
     
     R = R + 1
     Loop
     
     
     
End Sub

Некрасиво но работает! Если не подходит, могу переделать.