æé 2ï¼é¸æã®ã¡ãã¥ã¼ã«è¦ããªããªãã¸ã§ã¯ãã®ä¸è¦§ã表示ããã¾ãã®ã§ã¯ãªãã¯ãã¦ãªãã¸ã§ã¯ããé¸æã[Delete]ãã¼çã§åé¤ãã¾ãã ããå³ã®æ§ã«å¤§éã«ãªãã¸ã§ã¯ããããå ´å[Ctrl]ãã¼+[A]ãã¼ã§ã¾ã¨ãã¦é¸æãã[Delete]ãã¼ã§åé¤ããäºãã§ãã¾ãã ¦ã«å¯ãããã¾ã1ã¤2ã¤ãªãã°é¸æãã¦Delãã¼ã§æ¶ãã¾ãã大éã®ãªãã¸ã§ã¯ããããå ´åã¯ãã¹ã¦ãé¸æãã¦ä¸æ¬åé¤ãã¾ãï¼ã¨ã¯ã»ã«â¦ vbaã§ã¨ã¯ã»ã«ä¸ã®ç»åãã»ã«ã®ç¯å²ãæå®ãã¦åé¤ããã«ã¯ã©ã®ããã«ããã°ããã®ã§ããããï¼ä»åã¯ãç»åãç¯å²æå®ãã¦åé¤ããæ¹æ³ã«ã¤ãã¦å¾¹åºçã«è§£èª¬ãã¦ããã¾ãããµã³ãã«ã³ã¼ããç´¹ä»ãã¾ããvbaã§ç»åãç¯å²æå®ãã¦åé¤ããæ¹æ³ã»ã«ç¯å²ã 空ç½è¡ãåé¤ãã. ã¼ãä¸ã®ãªãã¸ã§ã¯ããé¸æããæ¹æ³ã¯ ãªãã¸ã§ã¯ãã®é¸æ ãã覧ãã ããã ããã§ã¯ãç¹å®ã®ç¨®é¡ã®ãªãã¸ã§ã¯ããåé¤ããæ¹æ³ã«ã¤ãã¦æ¸ãã¦ã¿ã¾ãã ãããã§ããããããã¯ãè²¼ãä»ããå³å½¢ãã°ã© ã¨ã¯ã»ã«ã®ãã¯ãã¯åé¤ãããªãããããã©ãã©ãå¢ãã¦ãã£ã¦ãã¾ãã¾ããç¹å®ã®ãã¯ããæ¢ãã®ã大å¤ã«ãªãã¾ãã®ã§ã使ããªããªã£ããã¯ããåé¤ãããçãã¤ãã¦ããã¨è¯ãã§ããããããã§ã¯ãã¯ãã®åé¤æ¹æ³ãç´¹ä»ãã¾ããä»åã®è§£èª¬ã¯ãã¨ã¯ã»ã«2013ãã¼ã¸ã§ã³ã«ã¦è¡ãã¾ã ã¾ã¨ãï¼ã¨ã¯ã»ã«ã§ãªãã¸ã§ã¯ãé¸æãã§ããªãã¨ãã®å¯¾å¦æ³. 空ç½ã»ã«ã®è¡ãåé¤ããå ´åã¯ãæ¡ä»¶ã Cells(i, 1).Value ="" ã¨ãã¾ãã ããã§ã¯ãAåã®ã»ã«ã®å¤="" ã¨ãã¦ãã¾ãã®ã§ãæ°å¼ã§""ãè¿ããã¦ããã»ã«ãåé¤å¯¾è±¡ã¨ãªãã¾ãã ãããã¡ããã®æ©è½ãããããããã¾ãï¼Wordã»Excelã»PowerPointãOfficeå
±éã®æ⦠å³å½¢ãç»åãéãªã£ã¦ãããå¯éãã¦ãããªãã解決çã¯æ¬¡ã®4ã¤ã§ãã ããªãã¸ã§ã¯ãã®é¸æãã使ã ããªãã¸ã§ã¯ãã®é¸æã¨è¡¨ç¤ºãã使ã; Tabãã¼ã§é¸æãã ããã§ã¯ãã¨ã¯ã»ã«ã«ã¦å³ãããã¹ãããã¯ã¹ãé¸æã§ããªãã»åé¤ã§ããªãã«æ®ãå ´åã«ä¸æ¬ã§åé¤ããæ¹æ³ã«ã¤ãã¦ç¢ºèªãã¾ããã å³ãããã¹ãããã¯ã¹ãé¸æã»åé¤ã§ããªããããªã±ã¼ã¹ã§ã¯æ¤ç´¢ã¨é¸æãã¸ã£ã³ãããªãã¸ã§ããã¨é¸ãã§æ¶ãã¨ããä¸é£ã®æ
£ããç解ãã¦ããã¨ããã§ãã å¨ããç¯å²ãåé¤ãããå ´åãã©ã®ããã«åé¤ãã¦ãã¾ããï¼ã㻠⦠ããã§é¸æãããã®ã¯ãSample å³å½¢ããªã®ã§ãã¡ããã©ãããã®éã«ãããã¨ããããã¾ãã ãã¨ãã°ãåé¢ã«ãã£ã¦éªéã«ãªãå³å½¢ãé¸æããã¨ã[ãªãã¸ã§ã¯ãã®é¸æã¨è¡¨ç¤º] ã¦ã£ã³ãã¦ã® 対象ã®å³å½¢ã®ååãã°ã¬ã¼ã§è¡¨ç¤ºããã¾ãã ã¨ã¯ã»ã«ã§ãã§ãã¯ããã¯ã¹ãä½æããæ¹æ³ãç»åã使ããªãã解説ãã¦ãã¾ããã¨ã¯ã»ã«ã«ã¯ããã§ãã¯ããæ°ã®éè¨ããããã¨ãã§ãã¾ãããã®éè¨æ¹æ³ã解説ãã¾ãããã®è¨äºãèªãã°ãã¨ã¯ã»ã«ã§ãã§ãã¯ããã¯ã¹ãç°¡åã«ä½ããããã«ãªãã§ãããã ¨éããããåé¤ããæ¹æ³ã説æãã¦ããã¾ãã å³å½¢ãè¤æ°é¸æããæ¹æ³ãã®2ã[ãªãã¸ã§ã¯ãã®é¸æ]ãã¿ã³ã§ç°¡åã«é¸æã§ãã¾ãï¼ä¾å¤ã«ã¤ãã¦ã解説ãã¦ãã¾ãã¨ãWordã»Excelã»PowerPointãOfficeå
±éã®æï¼ ãªããæ¡ä»¶ã¯ If Not x(i, 2) = 0 Then ã¨ãã¦ãããã¨æãã¾ãã. ãã«ãã¦ã³ã¡ãã¥ã¼ã¨ã¯ãã»ã«ã®å³å´ã«ä¸ä¸è§ãã¼ã¯ããããã¡ãã¥ã¼ããå
¥åã§ãããã®ã§ãããããã解é¤ï¼åé¤ï¼ããæ¹æ³ããä¼ããã¾ããã¾ãããã¹ã¦ã®é ãã¦ãããã«ãã¦ã³ã¡ãã¥ã¼ãæ¢ãã¦è§£é¤ããæ¹æ³ãåããã¦ãä¼ããããã¾ãã ã¨ã¯ã»ã«ã§é¸æã§ããªããªãã¸ã§ã¯ããåé¤ããæ¹æ³ã説æãã¾ãããé¸æã§ããªããªãã¸ã§ã¯ãã£ã¦ä½ï¼ãã¨æãããæ¹ãä¸åº¦èªãã§ã¿ã¦ãã ããããç¾è±¡ããåé¤æ¹æ³ã(⦠ã§ã£ãçã§æããããããªå³å½¢ãããã¨ãã¾ãããããã®å³å½¢ããããç¯å²ããã©ãã°ã§æå®ãã¦ããã®ç¯å²å
ã®å³å½¢ã ããåé¤ãããã®ã§ãããã©ãããããããæä½æ¹æ³ãæãã¦ãã ã ã¼ãä¸ã«ãããã¹ã¦ã®ãªãã¸ã§ã¯ããé¸æãããã¨ãå¯è½ã§ãã. ã¼ããåé¤ããã«ã¯ãFor Each ... Next ã§ãªãã¸ã§ã¯ããæ¢ãShapeãªãã¸ã§ã¯ãã«æ ¼ç´ãã¾ããæ ¼ç´ãããå¤æ°ã«å¯¾ããDeleteã¡ã½ããã§åé¤ãã¾ãã ã§ã¼ãã«ãããç»åãåç»ã§åããããã解説ãã¦ãã¾ãï¼ ãªãã¸ã§ã¯ããåé¤ããå ´åãctrl+Gâãªãã¸ã§ã¯ãé¸æâåé¤ãã«ã¦è¡ã£ã¦ãã¾ãããã¡ãã§ããéçºã¿ãâãã¶ã¤ã³ã¢ã¼ãâctrl+Gâãªãã¸ã§ã¯ãé¸æâåé¤ãã ã¨ä½ãéãã®ã§ããããï¼ãææã®ã»ã©å®ãããé¡ãè´ãã¾ãï¼(´ã»Ïã»`)ã©ã£ã¡ã ã¨ã¯ã»ã«ä¸ã®ç»åãå³ããªãã¸ã§ã¯ããã¾ã¨ãã¦é¸æã§ãããç¢å°ãããªãã¸ã§ã¯ãã®é¸æã®ä½¿ãæ¹ã§ãã æã®ã¨ã¯ã»ã«ãExcel2003ã¾ã§ã¯åæè¨å®ã§ããªãã¸ã§ã¯ãã®é¸æãã¿ã³ã表示ããã¦ãã¾ããããä»ã¯å°ãè¨å®ãå¿
è¦ã«ãªãã¾ããã ã§ã³å®ç¾©ã¾ãã¯ãªãã¸ã§ã¯ãå®ç¾©ã®ã¨ã©ã¼ã§ãã 3.Rangeã¯ã©ã¹ã®Copuã¡ã½ããã失æãã¾ããã ã¨ã¯ã»ã«ã§ãå®è¡æã¨ã©ã¼â1004âããçºçããåå ã¨ã¯ã»ã«ã§ç¹å®ã®å³å½¢ãããã¹ãããã¯ã¹ãåé¤ããããã®ãã¯ããå¼ç¨ç´¹ä»ãã¦ãã¾ããæéç縮ãã ããªä½æ¥ããªããã¦ããããæ¹ã¯ãã²åèã«ãã¦ãã ãããvbaã§ä»äºå¹çãã¢ããããã¦ãã㾠⦠¨éã å¯è½ã«ãªãã¾ãã ã¨ã¯ããã ãã©ããã£ããç¹å®ã®å³å½¢ã ãã ä¸æ¬é¸æãããã¨ãã§ããã®ï¼