ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦p¦ó½Æ»s¤u§@ªí¤@ªº©Ò¦³¸ê®Æ¦Üªí¤Gªº¤£¦PÄæ¦ì

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

TOP

        ÀR«ä¦Û¦b : ª¾ÃÑ­n¥Î¤ßÅé·|¡A¤~¯àÅܦ¨¦Û¤vªº´¼¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD