åç´ãªãã®ã§ããã¯ã¾ã£ã¦ãã¾ãæã¯ã¯ã¾ã£ã¦ãã¾ãã®ããã¯ãã§ãã å æ¥ãè·å ´ã®äººãããããªãã¯ãï¼VBAï¼ã®ç¸è«ãåãã¾ããã å®éã¯1000è¡ããããããåã20åããããã£ãã®ã§ãããåç´ãªä½æ¥ã¨ããã°åç´ãªä½æ¥ã§ããæåã§ããã®ã¯ãããªã³ã¼ãã§ããã ï¼ã¡ãã£ã¨ã«ãã³æªãã³ã¼ãï¼ Sub é£ç¶ãã¦4è¡ã«å¢ãã() 'æçµè¡ã®åå¾ Dim LstRow As Long LstRow = Cells(Rows.Count, 1).End(xlUp).Row 'ç¹°ãè¿ãå¦ç For i = LstRow To 2 Step -1 Rows(i).Select Application.CutCopyMode = False Selection.Copy Selection.Insert Shift:=xlDown Selection.Copy Selection.Insert Shift:=
{{#tags}}- {{label}}
{{/tags}}