返回列表 上一主題 發帖

可不可以輸入需要的數字範圍自動產出

回復 3# yueh0720
  1. Sub Ex()
  2.     Dim A1, A2
  3.     A1 = 51
  4.     A2 = 101
  5.     With Range("C2")
  6.         .Resize(Rows.Count - .Row) = ""
  7.         .Value = A1
  8.         .Offset(1).Resize(A2 - A1) = "=R[-1]C+1"
  9.         .Offset(1).Resize(A2 - A1) = .Offset(1).Resize(A2 - A1).Value
  10.     End With
  11. End Sub
複製代碼

TOP

        靜思自在 : 難行能行,難捨能捨,難為能為,才能昇華自我的人格。
返回列表 上一主題