[已解决]三列 从左至右 轮换

may158

点击按钮实现三列 从左至右 轮换 AAA→CCC、BBB→AAA、CCC→AAA 不借助辅助列
如图

轮换位置.rar (5.47 KB, 下载次数: 3)

2014-7-8 14:08 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

JLxiangwei

2014-7-8 15:43

may158 发表于 2014-7-8 14:41
还有其他办法吗？Cut把单元格的格式给弄乱了。

Private Sub CommandButton1_Click()
   Dim temp
   temp = Range("a1").Value
   Range("a1").Value = Range("b1").Value
   Range("b1").Value = Range("c1").Value
   Range("c1").Value = temp
End Sub
直接改变值，不改变格式就行了

跳转到最佳答案楼层

baksy

复制代码
Sub 轮换()
    Range("B1:C1").Select
    Selection.Cut
    Range("A1").Select
    Selection.Insert Shift:=xlToRight
End Sub

may158

还有其他办法吗？Cut把单元格的格式给弄乱了。

JLxiangwei

may158 发表于 2014-7-8 14:41
还有其他办法吗？Cut把单元格的格式给弄乱了。

Private Sub CommandButton1_Click()
   Dim temp
   temp = Range("a1").Value
   Range("a1").Value = Range("b1").Value
   Range("b1").Value = Range("c1").Value
   Range("c1").Value = temp
End Sub
直接改变值，不改变格式就行了