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

VBA - ALT +在循环中输入

1 个答案: