跨范围的行方式循环并将列标题复制到满足设置条件的另一个工作表

Question

表1

对于上表（工作表：原始数据），我试图创建一个读取行（从第2行到第6行）的宏，并检查单元格值是否小于100但大于0。情况确实如此，发生了两件事：

1. 将列标题（城市名称）复制到另一个新工作表
2. 该列被删除。

在整个范围内重复此操作。

在本练习结束时，宏会创建一个包含城市群的新工作表，以便在每个群集中，城市的距离小于100。

输出



我对Excel上的VBA脚本非常陌生，如果大家可以帮助我，我将非常感激。