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

[µo°Ý] §ä¥X³Ì¤j­È¹ïÀ³ªºrow, column

³Ì¤j¼Æ­È³Ì¦h¦³´X­Ó???
­Y¥u­n§ä¥X¤@­Ó, ¥ÎRANGE.FIND§Y¥i, ¤£¶·°j°é,
¤W¶Ç¤j²¤¼Ë¥»¸ê®ÆªºÀÉ®×, ¤~¦n³B²z~~

TOP

¦^´_ 5# acdx

¥ý¸Õ¸Õ~~
Sub TEST()
Dim R&, C&, Mx, xF As Range
R = Cells(Rows.Count, 1).End(xlUp).Row
C = Cells(15, Columns.Count).End(xlToLeft).Column
With Range([B16], Cells(R, C))
     Mx = Application.Max(.Cells)
     Set xF = .Find(Mx, Lookat:=xlWhole)
     Range("I11") = Cells(xF.Row, 1).Value
     Range("J11") = Cells(15, xF.Column).Value
End With
End Sub

TOP

        ÀR«ä¦Û¦b : ¤Hªº²´·úªø¦b«e­±¡A¥u¬Ý¨ì§O¤Hªº¯ÊÂI¡Aµ·²@¬Ý¤£¨ì¦Û¤vªº¯ÊÂI¡C
ªð¦^¦Cªí ¤W¤@¥DÃD