Sub d() Dim i As Long Dim r As Long i = 2 r = 2 Do While r <= Sheet2.Rows.Count 'Range("K1").EntireColumn.Cells(i, 1).Value = Range("F2").
確定! 回上一頁