EXCEL VBA 如何判断奇数和偶数列并分别求值 (求助高手)

Sub tt()
Dim i, j, k1%, k2%, y
For i = 1 To 255
y = Cells(Rows.Count, i).End(xlUp).Row
If y = 1 Then GoTo 10
For j = y To y - 3 Step -1
If Cells(j, i) Mod 2 = 0 Then
k1 = 1
Else
k2 = 1
End If
Next j
If k1 = 1 And k2 = 1 Then
Cells(y + 2, i) = "NG"
ElseIf k1 = 1 And k2 = 0 Then
Cells(y + 2, i) = "0"
Else
Cells(y + 2, i) = "1"
End If
k1 = 0: k2 = 0
10:
Next i

End Sub

SUB 李大侠83()
DIM X,Y
A=[K8].CURRENTREGION
REDIM B(1 TO 1,1 TO UBOUND(A,2))

FOR X=1 TO UBOUND(A,2)
C=0:CC=0

FOR Y=UBOUND(A) TO UBOUND(A)-3 STEP -1

C=C+A(Y,X) MOD 2
CC=CC+1

NEXT

IF C=CC THEN

B(1,X)=1
ELSEIF C=0 THEN

B(1,X)=0

ELSE

B(1,X)="NG"
END IF
NEXT
[K13].RESIZE(,UBOUND(A,2))=B
END SUB