VBA - ALT + Enter in a Loop

Question

我正在写一个宏，基于自动生成的报告在新工作表中创建日历。我已经编写了足够的宏来创建新工作表中的日历，并突出显示与报表相对应的所有日期。现在我想在每个周末的一个单元格中写出所有突出显示的日期。没有vba我可以按“ALT + ENTER”。但是，我当前宏运行的方式只是将最接近突出显示的单元的单元重新填充到最后，而不是使用线制动器。我想我需要将chr（10）以某种方式加入，但我不知道如何。

任何帮助将不胜感激。这是我目前的循环：

'find dates in August 
Dim augustRng As Range 
Set augustRng = Sheets("sheet1").Range("J16:P16") 
For Each cell In augustRng 
If cell.Interior.ColorIndex = 6 Then 
    cell.Select 
    Sheets("sheet1").Cells(16, "Q") = ActiveCell.Value 
End If 
Next cell 

Answer 1

摆脱.Select和新小区追加到Q16的原始值。

If cell.Interior.ColorIndex = 6 Then 
    Sheets("sheet1").Cells(16, "Q") = Sheets("sheet1").Cells(16, "Q").Value & Chr(10) & cell.value 
End If