안녕하세요 일전에 엑셀 패턴 VBA 명령문 식 질문을 올렸는데 제가 질문을 잘못 정리해서 올린것 같습니다.

제가 질문드린 요지는 A1부터 무한대의 1까지의 범위에서 연속패턴의 갯수를 추출하는 거였는데 

결과값이 같거나 다른 O 또는 X의 최대값인데 여기서 첫번째 횟수의 결과값이 X면 무조건 X의 최대갯수만 

O이면 O의 최대갯수만 구하는 거였는데 X랑 O의 결과값이 같이 나와있고 횟수도 제가 의도했던 횟수 계산결과 값이랑 맞지 않더라구요 아무래도 설명이 많이 부족해서 였던것 같습니다. 

아래 사진캡쳐로 설명을 다시 올려봅니다.

처음 B1에서의 오른쪽 한 칸 옆으로 간 값이 1이어서 B1의 패턴과 같은 패턴을 찾고 그 한칸 오른쪽 값이 A1의 결과값과 어떤지만 비교하면 됩니다 다만 처음 결과값이 X이면 X 의 최대갯수만 찾으면 되고 O이면 O의 결과값 최대만 찾으면 됩니다. 그러면 B1이 0이니까 오른쪽으로 찾으면 E1이 나오고 그 오른쪽 값을 각각 B1과 E1 비교해 보면 모두 1이라서 같은 결과값 O가 나옵니다 여기서 O의 최대갯수만 찾으면 됩니다. 그러면 결국 A1이 1이니까 1과 같은 결과값이 최대 몇개 나오는지만 체크하면 됩니다.. 그러면 E1까지 찾았고 그다음이 G1 그다음이 H1이런식으로 갑니다 G1의 오른쪽 1칸의 값은 역시 1이어서 현재까지 O2이고  그다음 H1 의 오른쪽 값은 G1이라 틀려서 최종은 같은 결과값 최대횟수인 O2 가 나옵니다.  그다음 무한대의 계산도 B1C1, B1C1D1 계속 확장해서 하고 싶은데 여기 엑셀그림에는 일단 B1C1D1E1부터 계산을 못했습니다.. B1C1D1E1부터 계속해서 계산을 해나가고 싶은데 쉽지 안네요 

수메리안님께서 해주신 VBA 명령문 식을 조금만 수정하면 될것 같은데 명령문 식이 아직까지 제 지식으론 수정할 엄두가 전혀 나질 안아서 이부분만 혹 수정해서 다시 만들어 주실수 있으실까요ㅠㅠ

항상 감사합니다