[已解决]请论坛老师帮我完成一段代码。

yslvictor

条件：当sheet2 中A1=1时，继续执行，否则退出。先谢谢了。
Sub test()
    Sheets("Sheet2").Select
'如果A1=1时，继续执行代码，否则，退出'
    Rows("11:11").Select
    Selection.Insert Shift:=xlDown
    Rows("1:1").Select
    Selection.Delete Shift:=xlUp
    Sheets("Sheet1").Select
    Range("B1").Select
    Selection.Insert Shift:=xlDown
    Range("A1").Select
    Selection.Delete Shift:=xlUp
    Selection.Copy
    Range("B1").Select
    ActiveSheet.Paste
End Sub
执行10次.rar (6.05 KB, 下载次数: 4)

2012-10-16 12:57 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

过江龙

2012-10-16 13:29

Sub test()
    Sheets("Sheet2").Select
If Sheets("Sheet2").Range("A1") <> 1 Then Exit Sub
    Selection.Insert Shift:=xlDown
    Rows("1:1").Select
    Selection.Delete Shift:=xlUp
    Sheets("Sheet1").Select
    Range("B1").Select
    Selection.Insert Shift:=xlDown
    Range("A1").Select
    Selection.Delete Shift:=xlUp
    Selection.Copy
    Range("B1").Select
    ActiveSheet.Paste
End Sub

跳转到最佳答案楼层

过江龙

Sub test()
    Sheets("Sheet2").Select
If Sheets("Sheet2").Range("A1") <> 1 Then Exit Sub
    Selection.Insert Shift:=xlDown
    Rows("1:1").Select
    Selection.Delete Shift:=xlUp
    Sheets("Sheet1").Select
    Range("B1").Select
    Selection.Insert Shift:=xlDown
    Range("A1").Select
    Selection.Delete Shift:=xlUp
    Selection.Copy
    Range("B1").Select
    ActiveSheet.Paste
End Sub

yslvictor

谢谢论坛前辈，学习了。