返回列表 上一主題 發帖

刪列

刪列

各位前輩你們好!
        前輩!
          Sub 差異列刪除()
              Dim R
              R = (ActiveCell.Row Mod 12)
              R = "C" & ActiveCell.Row - R + 1 & ":IV" & ActiveCell.Row + (12 - R)
              Range(R).Delete
              Range("A23") = ""
              End Sub 
          請知道的前輩,不吝賜教謝謝再三!!

Leov12.rar (21.44 KB)

回復 1# myleoyes
   R = ((ActiveCell.Row - 2) Mod 12)

TOP

回復 2# GBKEE
GBKEE前輩你好!
     良師!甘溫囉...謝謝再三!!

TOP

        靜思自在 : 我們要做好社會的環保,也要做好內心的環保。
返回列表 上一主題