[算表] 任兩個儲存格內容交換 公式改進~?
軟體: Excel
版本: 2003
平常工作需求就是要把不同儲存格裡的值做交換 (直接講就是資產的保管人更動 囧)
自己完全不會寫巨集
去google了半天終於找到一個比較符合需求的巨集
=============================================
Sub Swap()
If Selection.Count <> 2 Then
MsgBox "Select 2 cells (only) to swap."
Exit Sub
End If
Set trange = Selection
If trange.Areas.Count = 2 Then
temp = trange.Areas(2)
trange.Areas(2) = trange.Areas(1)
trange.Areas(1) = temp
Else
temp = trange(1)
trange(1) = trange(2)
trange(2) = temp
End If
End Sub
=============================================
試用了一下基本沒問題
但才發現自己作業上都會選取像A1,B1,C1要跟A8,B8,C8作交換
而這個巨集只能選兩個儲存格做交換(A1、C6交換這樣沒問題)
不知道要怎樣改才能達到我的需求呢~?
感謝!
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 60.251.182.68
→
01/27 11:37, , 1F
01/27 11:37, 1F
→
01/27 12:14, , 2F
01/27 12:14, 2F
→
01/27 15:21, , 3F
01/27 15:21, 3F
→
01/27 15:22, , 4F
01/27 15:22, 4F
→
01/27 15:52, , 5F
01/27 15:52, 5F
→
01/27 16:29, , 6F
01/27 16:29, 6F