- ©«¤l
- 2808
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2864
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-5-10
|
Sub TEST()
Dim MH, C%
With Sheets("¤u§@1").UsedRange
¡@¡@For C = 1 To .Columns.Count
¡@¡@¡@¡@MH = Application.Match(.Item(C), [¤u§@2!1:1], 0)
¡@¡@¡@¡@If Not IsError(MH) Then
¡@¡@¡@¡@¡@¡@.Columns(C).Offset(1, 0).Copy [¤u§@2!A1].Cells(2, MH)
¡@¡@¡@¡@End If
¡@¡@Next C
End With
End Sub |
|