- ©«¤l
- 48
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 72
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2021-7-21
- ³Ì«áµn¿ý
- 2022-9-6
|
¦^´_ 2# samwang
Sub test_T1()
Dim Arr, T,U ,T1, i&, j&
T = Sheets("AA").Range("c1")
U = Sheets("AA").Range("d1")
Ar = Sheets("AA").Range("b3:i19")
With Sheets("QQ")
Arr = .Range("a1:h" & .[b65536].End(3).Row) 'T1 T1,T2,T3½Ð¦Û¦æ¿ï¾Ü§ó´«
'Arr = .Range("j1:q" & .[k65536].End(3).Row) 'T2
'Arr = .Range("s1:z" & .[t65536].End(3).Row) 'T3
For i = 1 To UBound(Arr) Step 19
T1 = Arr(i, 2): If T1 = "" Then GoTo 99
If T1 = T Then
.Cells(i, 1).Offset(1).Resize(16, 8).Value = Ar
Exit Sub
End If
99: Next
End With
End Sub
±µ¤U¨Ó´N¤£ª¾¹D«ç»ò¥Î¡A¤£ª¾¹D¬O¤£¬O³o¼Ë§ï¡C |
|