­ã´£³¡ªL

Sub TEST1()
Dim xR As Range, xH As Range, xU As Range, j&
Sheets("¤u§@ªí1").UsedRange.Clear
Set xH = [¤u§@ªí1!A2]
[¹Å¸q!A1].Copy xH(0)
For Each xR In Range([¹Å¸q!A2], [¹Å¸q!A65536].End(xlUp))
¡@¡@If xR.Row = 1 Then Exit Sub
¡@¡@If xR = "" Then GoTo 101
¡@¡@Set xU = xR.Resize(6, 2)
¡@¡@For j = [C1].Column To [Z1].Column
¡@¡@¡@¡@If xR(1, j) >= 36 Then Set xU = Union(xU, xR(1, j).Resize(6))
¡@¡@Next j
¡@¡@xU.Copy xH
¡@¡@Set xH = xH(8)
101: Next
End Sub¡@