返回列表 上一主題 發帖

不相鄰單元格,如何變為矩陣使用

回復 1# b31978
  1. Sub Ex()
  2.     Dim AR
  3.     AR = Array(Range("A1").Value, Range("B3").Value, Range("B2").Value)
  4.     MsgBox AR(0)
  5. End Sub
  6. Sub Ex1()
  7.     Dim AR
  8.     AR = Array("A1", "B3", "B2")
  9.     MsgBox Range(AR(0))
  10. End Sub
複製代碼

TOP

        靜思自在 : 慈悲沒有敵人,智慧不起煩惱。
返回列表 上一主題