- ©«¤l
- 2804
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2860
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-5-3
|
Sub TEST_A1()
Dim Arr, Brr, Crr, R&, C%, V(3)
With Sheets("¸ê®Æ®w")
Arr = Range(.Cells(Rows.Count, 2).End(3), .Cells(5, Columns.Count).End(1)(2))
R = UBound(Arr): C = UBound(Arr, 2)
End With
Brr = Sheets("¤ñ¹ï").[b3].Resize(2, C)
ReDim Crr(1 To R, 1 To C)
For j = 8 To C
V(1) = Brr(1, j): V(2) = Brr(2, j)
If V(1) = "" Or V(2) = "" Then GoTo j01
For i = 1 To R
If j = 8 Then Crr(i, 1) = Arr(i, 1)
V(3) = Arr(i, j): If V(3) = "" Then GoTo i01
V(0) = (V(3) >= V(1)) * (V(3) <= V(2))
Crr(i, j) = V(0)
Crr(i, 7) = Crr(i, 7) + V(0)
i01: Next i
j01: Next j
Sheets("¤ñ¹ï").[b6].Resize(R, C) = Crr
End Sub |
|