質問: Sheet2の医療費の支払いをB列に日付、C~K列に医療機関名のシートです。 このSheetから日付(月ごと)を指定して抽出し、Sheet3に転記するところまではできています。
回答: 回答ではありませんが・・。 Sheet3に抽出されるデータがA1から出力されるのであれば、以下のようなコードで最終列、最終行が取得できます。 Sub CellCount() With Range("A1").CurrentRegion MsgBox "列は" & .Columns.Count & vbCrLf & "行は" & .Rows.Count End With End Sub 最終行の下に関数を指定したいのであれば、最終行の1つ下はOffset(1)で指定できます。参考になれば・。