循环区域的赋值

Ericcccccc

根据S4数量判断有几个区域（每一部分黄色+蓝色是一个区域），黄色部分从Q列开始从上往下从左往右依次取值，蓝色部分从P列开始，如图所示，请问这个循环的赋值的功能怎么用VBA实现

不知道为什么

如图 参考。。。。。。。。。

不知道为什么

附件 测试。。。。。

准提部林

Sub TEST_A1()
Dim Arr, xR As Range, X(1 To 8, 1 To 12), Y(1 To 8, 1 To 12), i&, R%, C%
Set xR = [b5]: Arr = Range([q1], [p65536].End(3))
For i = 4 To UBound(Arr)
    C = C + 1: If C = 1 Then R = R + 1
    X(R, C) = Arr(i, 2): Y(R, C) = Arr(i, 1)
    If C = 12 Then C = 0
    If (R = 8) * (C = 0) Or i = UBound(Arr) Then
       xR.Resize(8, 12) = X
       xR(11).Resize(8, 12) = Y
       R = 0: C = 0: Set xR = xR(23): Erase X, Y
    End If
Next i
End Sub

准提部林

審核中..先上圖//