Set SourceRange = Worksheets("Sheet3").Range(Cells(3, 5), Cells(4, 5))
Set fillRange = Worksheets("Sheet3").Range(Cells(3, 5), Cells(20, 5))
Worksheets(3).Cells(3, 5) = 1
Worksheets(3).Cells(4, 5) = 2
SourceRange.AutoFill Destination:=fillRange
Set fillRange = Worksheets("Sheet3").Range(Cells(3, 5), Cells(20, 5))
Worksheets(3).Cells(3, 5) = 1
Worksheets(3).Cells(4, 5) = 2
SourceRange.AutoFill Destination:=fillRange
1万+

被折叠的 条评论
为什么被折叠?



