samwang

¦^´_ 1# zz0660

¬O³o¼Ë¶Ü?

Sub test_T1()
Dim Arr, T, T1, i&, j&
T = Sheets("AA").Range("c1")
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

samwang

¦^´_ 4# zz0660

¤£¦n·N«ä¡A¥i§_½Ð¸ÑÄÀ¸Ô²Ó¤@ÂI¡AÁÂÁÂ

samwang

¦^´_ 6# zz0660

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test_T1()
Dim Arr, T, xR, T1, i&, j&, xC%
With Sheets("AA")
    T = .Range("c1"): xR = .Range("d1")
    Ar = .Range("b3:i19")
End With
With Sheets("QQ")
    If xR = "T1" Then
        Arr = .Range("a1:h" & .[b65536].End(3).Row): xC = 0 'T1
    ElseIf xR = "T2" Then
        Arr = .Range("j1:q" & .[k65536].End(3).Row): xC = 9 'T2
    ElseIf xR = "T3" Then
        Arr = .Range("s1:z" & .[t65536].End(3).Row): xC = 18 'T3
    End If
     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, xC).Resize(17, 8).Value = Ar
             Exit Sub
         End If
99:   Next
End With
End Sub

samwang

¦^´_ 8# zz0660

§Ú´ú¸Õ¨S°ÝÃD¦pªþ¥ó¡A¥i§_¦AÁ¿¸Ô²Ó¤@ÂI¡AÁÂÁÂ

samwang

¦^´_ 10# zz0660


§Ú¥Î§A8¼Óªºªþ¥ó¨º­ÓÀÉ®×´ú¸Õ¡A¤@¯ë¼Ò²Õ©M¤u§@ªí³£¨S°ÝÃD¡A½Ð¦A½T»{¡AÁÂÁÂ