我有一個宏的一小部分，它將日期范圍從一個地方復制到另一個地方。我希望它在最后添加另一個日期。例如，如果它在 2021-12-31 上，它將添加 2022-01-30 等。我想添加到 J69 日期。
Range("J64").Select
Selection.Copy
Range("J68").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
With Range("J69").CurrentRegion
uj5u.com熱心網友回復：
如果我正確理解了您的需要，請嘗試下一個改編的代碼：
Range("J68").value = Range("J64").value
Range("J64").Copy
Range("J68").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("J69").value = DateAdd("m", 1, Range("J68").value) - 1
它會將“J64”中的值粘貼到“J68”中，然后復制“J64”格式并將通過向上述單元格添加月份 -1 計算出的日期放入“J69”。
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/388342.html
上一篇：滿足條件時著色行
下一篇：不顯示單元格中的公式