存储第一行过滤数据的单元格内容
我正在编写一个macros，它将使用一个选项卡中的数据自动生成报告。 数据存储在以下列中：date，class次（日或夜），UnitID，操作员缩写，单位正常运行时间和注释。 对于报告，我需要先按date对数据进行sorting，然后按每个class次迭代sorting。 每个sorting的数据将只是一个单独的行分成单元格，如：
Unit | Shift | Operator Initials | Up Time | Comments. 然后，我需要为下一个class次/单位集合提供数据，并继续通过所有单位。 使用两个For循环，我已经自动迭代单位和class次。 但是，我不知道如何复制数据，一旦它被过滤。 使用硬编码的单元格引用，每次迭代都会得到相同的数据（如预期的那样）。
如何告诉Excel复制（或更好地保存为variables）在标题行正下方显示的每个单元格中的值？
您可以使用方法SpecialCells(xlCellTypeVisible)来select并复制数据
例：
Sheet1.Range("A1:D10")SpecialCells(xlCellTypeVisible).Select Selection.Copy Sheet2.Paste