currentregion
currentregionºÍusedrangeÓÐÊ²Ã´Çø±ð
¶¨ÒåCurrentRegionÊÇExcelµÄº¯Êý£¬»ùÓÚ¿Õ°×ÐкÍÁÐ×Ô¶¯Ê¶±ðÁ¬ÐøÊý¾ÝÇøÓò£¬·µ»ØÒ»¸ö¾ØÐη¶Î§£¬ÎÞÐèÊÖ¶¯Ñ¡Ôñ¡£ÀýÈ磬ÈôÊý¾ÝÇøÓò±»¿Õ°×ÐлòÁзָô£¬CurrentRegion»á·Ö±ðʶ±ðÿ¸ö¶ÀÁ¢Çø...
currentregionºÍusedrangeµÄÇø±ð
·¶Î§²»Í¬CurrentRegionÒԻµ¥Ôª¸ñΪÆðµã£¬ÏòËÄÖÜÀ©Õ¹ËÑË÷·Ç¿Õµ¥Ôª¸ñ£¬Óöµ½¿Õ°×ÐлòÁм´Í£Ö¹À©Õ¹£¬ÐγÉÁ¬ÐøµÄ¾ØÐÎÇøÓò¡£ÀýÈ磬Èôijµ¥Ôª¸ñÓÒ²à´æÔÚ¿Õ°×ÁУ¬CurrentRegion½«²»»á...
ÇëÎÊÈçºÎÓÃvba½øÐÐÊý¾ÝÆ¥Åä?
firstAddress As String Set rng = ActiveSheet.Range("A1").CurrentRegion findValue = InputBox("ÇëÊäÈë²éÕÒÖµ:") If findValue...
ÔÚVBAÖÐ,currentregionʵÀýÔËÓÃ! - °Ù¶È¾Ñé
5 ÔÚ´úÂë±à¼´°¿ÚÊäÈëÒÔÏ´úÂ룺Sub ÇóÁ½ÁÐÖ®²î¶î()Dim i As String, j$, k As Integer, rng As Rangei = [b3].CurrentRegion.Addressj = [b5].CurrentRegion.Addressk = ...
Çó¸ßÊÖ¿´Õâ¸öVba´íÎóµÄÔÒò?
ÐèÒªÏÈÈ·ÈÏһϻµ¥Ôª¸ñɶµÄ1¡¢CurrentRegion ÊÇij¸öµ¥Ôª¸ñºóÓÃËü2¡¢Èç¹ûÄãËø¶¨ÁËij¸öµ¥Ôª¸ñ£¬¹À¼Æ»áÓ°ÏìÄãÅÅÐò
currentregionºÍusedrange·Ö±ðÊÇʲô
CurrentRegionºÍUsedRangeÊÇExcelÖÐÓÃÓÚÈ·¶¨Êý¾Ý·¶Î§µÄÁ½¸öÖØÒª¸ÅÄÖ÷񻂿±ðÈçÏ£ºCurrentRegion¶¨ÒåÓ빦ÄÜ£ºCurrentRegionÊÇExcelÖеÄÒ»¸öº¯Êý£¨ÔÚVBAÖбíÏÖΪÊôÐÔ£©£¬ÓÃÓÚ·µ»Ø...
ÈçºÎÀûÓÃVBAʵÏÖ¶ÔÊý¾ÝɸѡºóµÄÐÐÊýͳ¼Æ - °Ù¶È¾Ñé
5 [a1].CurrentRegion´ú±íA1µ¥Ôª¸ñ¿ªÊ¼µÄÊý¾ÝÇøÓò£¬[a1].CurrentRegion.SpecialCells(xlCellTypeVisible)´ú±íÊý¾ÝÇøÓòµÄ¿É¼ûµ¥Ôª¸ñÇøÓò£¬Õâ¸öÇøÓòÊÇ·ÇÁ¬ÐøÇøÓò...
ÔõÑùʹÓÃVBAË«Ìõ¼þÅÅÐò:Ê×ÁÐÉýÐò¡¢´ÎÁнµÐò - °Ù¶È¾Ñé
CurrentRegion),SortOn:=xlSortOnValues,Order:=xlDescending, DataOption:=xlSortNormal '´ÎÁÐÒԱʻΪ»ù×¼½µÐòÅÅÐò .SetRange Application.Intersect(Selection.CurrentRegion, ...
ExcelÔõôÌáÈ¡¶à¸öÊý¾ÝÖ¸¶¨ÐÐÊý¾Ý?
Sub ¼Ó°à() Dim arr1, arr2, i%, j%, n%, k%, MM MM = InputBox(prompt:="ÇëÊäÈëÔ·Ý") arr1 = Range("A1").CurrentRegion ...