VBA：组织非矩形范围（编辑）

我有一系列交叉的行和列：

Dim rows As Range
Set rows = Workbooks(insurance).Worksheets(from).Range(rngRows)

Dim cols As Range
Set cols = Workbooks(insurance).Worksheets(from).Range(rngCols)

Set Rng = Application.intersect(rows, cols)

我想“折叠”相交的单元，这样它们之间就没有空间了。想法

编辑：

---

我需要从say rngrowth=“16:24,27:32,35:39”和rngCols=“E:E，I:I，M:M”的交集中提取数据，然后基本上删除它们之间的所有空格或将其放入数组中。问题是Rng没有按列或行对范围进行排序，而是将范围划分为一系列细分的范围，因此我无法先遍历整列，然后再遍历下一列。

您需要展示一个小示例，以准确说明“折叠”的含义。您的意思是要删除工作表上的空行或空列，还是移动数据以填充空白？如果在

rngrowth

中循环遍历每个单元格，您可以检查是否与

rngCols

相交，而不是尝试循环

Rng

或反之亦然，循环

rngCols

并检查

Rng