質問: cells(i, 2).value & format(cells(i, 2), "aaaa") next end with end sub
回答: >コマンドボタンを押したら今日より前の日付に 個人的な意見ですが、 >.list(.listcount - 1, 1) = cells(i, 2).value & format(cells(i, 2), "aaaa") ここで 日付型と文字列型を連結しちゃってますからねぇ。 もう1列増やして日付と曜日を別にしちゃうってならやりやすかったのかも。 或いは半角スペースなどの区切り文字を間に入れてsplitしちゃうとか。 ママチャリさんの方法ででも一括コピペ&削除ではなく、for each で個別に判断させれば行けちゃうんじゃないのかな?