在工作表中查找多个范围

Question

我有一条航线的运力计划工作表，其中包括给定时间段内飞往目的地的座位数。可能会有一个以上的时间段，因为时间表有空缺，或者座位数发生了变化。这将创建两个必须进行新飞行的“范围”。

图片显示了Excel工作表的一小部分。红色显示从15-APR到22-APR的第一个范围，蓝色显示从5月6日到5月13日的第二个范围。

我可以通过找到行中的第一个和最后一个填充的单元格来找到第一个范围。我通过使用.End(xlToRight)和.End(xlToLeft)来做到这一点。

然后我使用找到的坐标为变量提供单元格(4, y)中的值。像这样：

lCol = Cells(ActiveCell.Row, 5).End(xlToRight).Column
fCol = Cells(ActiveCell.Row, 58).End(xlToLeft).Column
EffDate = Cells(4, fCol)
DiscDate = Cells(4, lCol)

该宏在工作表中循环，并向另一工作表中添加每行的排期。理想情况下，我想创建一个If-Else方案来检查一行中是否有多个“句点”。我不想将两个范围合并在一起。