excel - 将部分日期从字段 A 复制并替换到 B

Question

我需要一个简单的代码，它从固定(始终相同)字段(下面示例中的 B 26)获取日期并仅复制 MM.YYYY(从日期 19.09.2020 开始，我只需要 09.2020 的副本)和这个 MM.YYYY 插入进入日期字段 B2 并替换旧的 MM.YYYY。 B2 的第 DD 天(示例中的第 1 天)应该保留。

例子:
B26 -> 我需要 09.2020 的副本
B2 -> 01.08.2020 需要替换为 09.2020，结果应该是 01.09.2020。
B3...B25 -> 从 B3 到 B25 的所有线都应该下注相同，B3 应该是 02.09.2020，B4 应该是 03.09.2020...



我有一个可能是日期格式错误的问题。

Range("B26").Select
Selection.Copy
Range("B2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "8/1/2020"
Range("B2").Select
Selection.AutoFill Destination:=Range("B2:B25"), Type:=xlFillDefault
Range("B2:B25").Select

Answer 1

循环遍历需要替换的每个单元格并使用 DateSerial function创建一个包含 B26 的年月和循环中当前单元格的日期的日期。

Dim Cell As Range
For Each Cell In Range("D2:D25")
    Cell.Value = DateSerial(Year(Range("B26").Value), Month(Range("B26").Value), Day(Cell.Value))
Next Cell