samwang

¦^´_ 1# edmondsforum

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

Sub test()
Dim Arr, T$, R&, C%, j%, ck%
With Sheets("test")
    R = .[g65536].End(3).Row
    If R < 5 Then MsgBox "µL¸ê®Æ": Exit Sub
    C = .UsedRange.Columns.Count
    T = .[G4]
    Arr = .Range(.[AF4], .Cells(4, C))
    For j = 1 To UBound(Arr, 2)
        If Arr(1, j) = T Then C = j + 31: ck = 1: Exit For
    Next
    If ck = 0 Then MsgBox "¤é´Á¥i¯à¶]±¼¡A¾É­PµLªk¦Û°Ê°O¿ý ¤u§@ºK­n ¡A½Ð½T»{": Exit Sub
    Arr = .Range(.[g5], .Cells(R, 7))
    .Cells(5, C).Resize(R, 1) = Arr
End With
End Sub