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