Sub copyRowToBelow() Dim rng As Range Set rng = Range("A1") ' <~~ Change this Do While (rng.Value <> "") ' Insert a row below the current one rng.Offset(1).
確定! 回上一頁