我有一系列"纵横交错"已交叉的行和列:
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)
我想"崩溃"相交的单元格,使它们之间没有空格。想法?
编辑: 我需要从rngRows =" 16:24,27:32,35:39"和rngCols =" E:E,我:我,M:M"然后基本上删除它们之间的所有空格或将其放在一个数组中。问题是Rng不按列或行排序,而是按一堆分解的范围排序,这样我就不能先遍历整个列然后循环下一个。