EXCEL VBA向下填充
发布网友
共2个回答
热心网友
Sub 快速填充7行() Dim k As Long,m As Long k = Range("K65536").End(xlUp).Row bm = Range("BM65536").End(xlUp).Row With Range("K" & k) .AutoFill Destination:=Range(.Address, .Offset(7, 0)) End With With Range("BM" & bm) .AutoFill Destination:=Range(.Address, .Offset(7, 0)) End WithEnd Sub K列和BM列的末尾行一致的话，可以使用同一变量。
热心网友
填充到哪里？
