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

Åܰʽd³ò¦WºÙ

Åܰʽd³ò¦WºÙ

§Ú¦bVBA³]¤F¤@­Ó½d³ò¦WºÙ. ¦^¨ì¤u§@ªí¬Ý¦WºÙ簵²z­û,¦¹½d³ò¦WºÙ¸Ì­±ªº"­È" & "°Ñ·Ó¨ì" ³£¬O#N/A
¥[¤W vlookup($D3,DataRange,E$2,0) ¤]§ä¤£¨ì¸ê®Æ
½Ð±Ð­n¦p¦ó­×§ï?
    Selection.CurrentRegion.Select
    ThisWorkbook.Names.Add "DataRange", myRng
fangac

¦^´_ 4# ­ã´£³¡ªL
ÁÂÁ ·Ç´£¤j¤j  ¾Ç²ß¤F ³o¤è¦¡§ó¦n¥Î

TOP

¥i¯à Selection.CurrentRegion.Select §ìªº½d³ò¤£§¹¾ã©Î¤£¹ï,
§ï¥Îusedrange, ©Î¦Ñ¹ê¥Îend¥h§ìÄæ¦C½d³ò,
©w¸q¦WºÙ¥iª½±µ¥Î:
range("½d³ò").name="????"

TOP

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2020-9-14 21:58 ½s¿è

¦^´_ 1# fangsc
§ï³o¼Ë¤]¥i¥H ActiveWorkbook.Names.Add "DataRange", Selection.CurrentRegion
©ÎµÛ«ü©w¤@­Ó½d³ò¤]¥i¥H  ActiveWorkbook.Names.Add "DataRange", [A1].CurrentRegion

TOP

  1. Sub zz()
  2. Dim myRng As Range
  3. Set myRng = Selection
  4.     ThisWorkbook.Names.Add "DataRange", myRng
  5. End Sub
½Æ»s¥N½X

zz.zip (15.64 KB)

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤Hªº§Ö¼Ö¡D¤£¬O¦]¬°¥L¾Ö¦³±o¦h¡A¦Ó¬O¦]¬°¥L­p¸û±o¤Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD