VBA - - 最後の非からオートフィルと増分空のセル

Question

は、私は、次のコードを持っています。これは、列Bの最後の空でないセルを見つけて、A2000から問題のセルの列BにオートフィルAを開始します。 しかし、列Aの最後の空でないセルからオートフィルを開始する必要があります自動提出される空行は1つだけです。これは、通常、列Aと列Bの間に空のセルが1つしかないため、AutoFillNextなどの他の決定がある可能性があるため、重要です。 私はちょうどこのように、細胞数を除去することにより、コードを変更してみました：予想通り

Destination:=Range("A:A" & lastRow) 

は、それが動作しません。

Answer 1

私は、Range.AutoFill methodではなくRange.FillDown methodを使用する傾向があります。日付値をインクリメントしようとしている場合

Dim lastRow As Long 
with activesheet 
    lastRow = .Range("B" & .Rows.Count).End(xlUp).Row 
    .Range(.Cells(.Rows.Count, "A").End(xlUp), .Cells(lastRow, "A")).FillDown 
end with 

は、Range.DataSeriesがより適切であろう。

Dim lastRow As Long 
With ActiveSheet 
    lastRow = .Cells(.Rows.Count, "B").End(xlUp).Row 
    With .Range(.Cells(.Rows.Count, "A").End(xlUp), .Cells(lastRow, "A")) 
     .DataSeries Rowcol:=xlColumns, Type:=xlChronological, _ 
        Date:=xlDay, Step:=1, Trend:=False 
    End With 
End With