返回列表 上一主題 發帖

簡化程式

回復 1# bear0925900003
  1. Option Explicit
  2. Sub Ex()
  3.     Dim i
  4.     For i = 6 To 45
  5.         If Range("c" & i) = "" Then Range("e" & i & ":n" & i) = ""
  6.     Next
  7. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

        靜思自在 : 【做人的開始】每一天都是故人的開始,每一個時刻都是自己的警惕。
返回列表 上一主題