代码修订2

ddz79101 · 发表于 2024-9-4 18:15

老师！我希望重新排列列的顺序，但代码未成功，列序都乱了。望老师指点

chxw68 · 发表于 2024-9-4 18:39

Sub test()
With Worksheets("资产")
If .Range("d1") <> "年初数" Then
.Columns(7).Cut
.Columns(4).Insert shift:=xlToRight
End If
End With
End Sub

复制代码

chxw68 · 发表于 2024-9-4 18:40

详见附件。

gwjkkkkk · 发表于 2024-9-4 18:50

Option Explicit
Sub TEST2()
Dim Rng As Range

Application.ScreenUpdating = False

With [A1].CurrentRegion '.Value
      Set Rng = .Columns(7)
      .Columns(4).EntireColumn.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
      Rng.Copy .Cells(1, 4)
      Rng.EntireColumn.Delete
End With

Application.ScreenUpdating = True
Beep
End Sub

gwjkkkkk · 发表于 2024-9-4 18:53

...................

ddz79101 · 发表于 2024-9-4 22:47

chxw68 发表于 2024-9-4 18:40
详见附件。

谢谢老师！运行成功！花后补

ddz79101 · 发表于 2024-9-4 22:47

gwjkkkkk 发表于 2024-9-4 18:53
...................

谢谢老师！运行成功！花后补

		自动登录	找回密码
密码			免费注册

[求助] 代码修订2

评分

评分