返回列表 上一主題 發帖

想請問大大如何把儲存格資料對換?

  1. Sub 對換()
  2. a = Range(Selection.Areas(1).Address)
  3. b = Range(Selection.Areas(2).Address)
  4. Range(Selection.Areas(1).Address) = b
  5. Range(Selection.Areas(2).Address) = a
  6. End Sub
複製代碼

TOP

        靜思自在 : 君子立恆志,小人恆立志。
返回列表 上一主題