[已解决]这段红色的代码怎么改

要用就学

sub()
.......
Sheet5.[e4] = [ac6]
    Sheet5.[e5] = [ad6]
    Sheet5.[e6] = [ae6]
    Sheet5.[e7] = [af6]
    Sheet5.[e8] = [z6]
    Sheet5.[e9] = [p6]
    Sheet5.Range("E3").Select
    Selection.AutoFill Destination:=Range("E3:E7"), Type:=xlFillFormats
    Range("E3:E7").Select
end sub
这段红色的代码怎么改

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-7-10 15:29

1. Sheet5.Range("E3").AutoFill Destination:=Sheet5.Range("E3:E7"), Type:=xlFillFormats

复制代码

跳转到最佳答案楼层

lyf7276

你想要改成什么呀

hwc2ycy

1. Sheet5.Range("E3").AutoFill Destination:=Sheet5.Range("E3:E7"), Type:=xlFillFormats

复制代码

hwc2ycy

你这只是填充格式了。

要用就学

hwc2ycy 发表于 2013-7-10 15:29
你这只是填充格式了。

是滴，非常好用，谢谢