列 A に同じ日が2つが必要です。

ChatGPT以下を質問しました。

--------------------------
エクセルで
下記に示すように、列 A に同じ日が2つが必要です。
その場合、オートフィルター機能が使えないので、手動で日付を入力しています。
これをマクロで自動化するにはどうすればよいですか?
3月27日(月)
3月27日(月)
3月28日(火)
3月28日(火)
3月29日(水)
3月29日(水)
3月30日(木)
3月30日(木)
3月31日(金)
3月31日(金)
4月1日(土)
4月1日(土)
4月2日(日)
4月2日(日)
4月3日(月)
4月3日(月)
4月4日(火)
4月4日(火)
4月5日(水)
4月5日(水)
4月6日(木)
4月6日(木)
4月7日(金)
4月7日(金)
4月8日(土)
4月8日(土)

以前の混乱をお詫びします。列 A の各日付を複製する更新されたコードは次のとおりです。

vb
Copy code
Sub DuplicateDates()
Dim lastRow As Long
Dim i As Long

lastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row 'get last row with data

'loop through each row and insert a duplicate date row below it
For i = lastRow To 1 Step -1
Range("A" & i + 1).EntireRow.Insert 'insert new row below current row
Range("A" & i + 1).Value = Range("A" & i).Value 'copy date value to new row
Next i
End Sub

マクロを使用するには、Excel で Visual Basic Editor を開き、新しいモジュールを作成して、上記のコードを貼り付けます。 次に、[実行] ボタンをクリックするか、キーボード ショートカットに割り当てて、マクロを実行できます。 何か問題が発生した場合に備えて、マクロを実行する前に必ずファイルを保存してください。

以上ですが
マクロは１０年ぐらい前に使った記憶しかないのです。
ChatGPTのマクロは入力しましたが、早速A列でオートフィルターに
「同じ日がセルに２個づつ」列にでるかオートフィルタで試しましたが
１個しかでてこなくて既存の機能しかできない状態です。
　なぜですか？
宜しくお願い致します。

No.1 ベストアンサー 回答者： stomachman 回答日時： 2023/03/28 07:37

> なぜですか？

はさておき、これはマクロいらんですね。
3月27日(月)
が入っているのが仮にcell A1だとすると、まず
(1) A1をA2までfill する。（これでcell A2の書式が設定されます。）それから
(2) A2に
=A1+0.5
を入れ、そして
(3) A2を好きなところまで下にfillする。

この回答へのお礼

ありがとうございます。
素晴らしいです。できました^^

お礼日時：2023/03/28 08:07