谁能帮忙修改一个单元格左移的代码呢

mp3_2004

Sub 选定单元格向下移()
     Selection.Cut
     Cells(Selection.Row + Selection.Rows.Count + 1,Selection.Column).Insert Shift:=xlDown
     Cells(Selection.Row + 1, Selection.Column). _
     Resize(Selection.Rows.Count, Selection.Columns.Count).Select
End Sub

以上是下移的，想弄一个左移的，意思是选中单元格，运行一次就将选中的单元格内容和左边一格的内容替换，同时选区变更成左边单元格。

wlmhit903

selection.cut
cells(selection.row,selection.column-1).resize(selection.rows.count,1).select
selection.insert shift:=xltoright

webber04

1. Sub testing()
   
2. Dim i$, p$, j%, k%
   
3. i = Selection.Value
   
4. j = Selection.Row
   
5. k = Selection.Column
   
6. If k >= 2 Then
   
7. p = Cells(j, k - 1)
   
8. Else
   
9. MsgBox "no column on the left"
   
10. End If
    
11. Selection.Value = p
    
12. Cells(j, k - 1) = i
    
13. Cells(j, k - 1).Select
    
14. End Sub

复制代码

mlexcel12

使用交换函数

mp3_2004

wlmhit903 发表于 2022-6-17 17:46
selection.cut
cells(selection.row,selection.column-1).resize(selection.rows.count,1).select
select ...

真的非常感谢。可以用了。

mp3_2004

webber04 发表于 2022-6-17 20:14

谢谢啊，我是用的2楼的稍微修改了一下，最后要保持原选区大小，就是目的是我开始选中的单元格是可以连续操作的，选择2个单元格以上，能连续往左移

mp3_2004

mlexcel12 发表于 2022-6-18 11:07
使用交换函数

能帮忙修改出一个完整的代码不，我不太会用这个，我的目的是选区左移，选区可以连续操作的，点一下，移动一下，能连续点的那种，选区可能不是某一个单元格。