这个要怎么修改才会回到刚刚的工作表

再回首-沉默 · 发表于 2024-9-29 11:12

Sub 临时()
'
' 临时 Macro
' 宏由 Administrator 录制，时间: 2024/09/29
'

'
Columns("A:J").Select
Range("A2").Activate
Selection.Copy
Columns("L:L").Select
ActiveSheet.Paste
Sheets("LT-A1(LT-A2)").Activate
Columns("W:AD").Select
Selection.Copy
Sheets("LT-A3").Activate
Columns("W:W").Select
ActiveSheet.Paste
End Sub

ykcbf1100 · 发表于 2024-9-29 11:59

Set sh = ThisWorkbook.Sheets("Sheets("LT-A3")
sh.Select

joy.008@163.com · 发表于 2024-9-29 12:31

for i = 2 to 3
Sheets(i).Activate
next

taller · 发表于 2024-9-29 12:39

多数情况下，都不需要Activate和Select，例如将Sheet1中A1:A3拷贝到Sheet2中的C5，无论活动工作表是Sheet1还是Sheet2，代码都可以使用

Sub Demo()
Sheets("Sheet1").Range("A1:A3").Copy Sheets("Sheet2").Range("C5")
End Sub

Peny2020 · 发表于 2024-9-29 13:17

sh = activesheet.name
Columns("A:J").Select
Range("A2").Activate
Selection.Copy
Columns("L:L").Select
ActiveSheet.Paste
Sheets("LT-A1(LT-A2)").Activate
Columns("W:AD").Select
Selection.Copy
sheets(sh).Selec
Columns("W:W").Select
ActiveSheet.Paste

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

[求助] 这个要怎么修改才会回到刚刚的工作表