第3个回答 2017-06-13
Sub Macro1() Dim ar As Range Const col = "H" '复制到的列 For Each ar In Selection.Areas ar.Copy Range(col & ar.Cells(1, 1).Row()) Next arEnd Sub利用range对象的Areas属性,Areas集合中的每个元素都是一个range对象,它对应多重区域中的每一个连续的区域。ar.CopyRange(col&ar.Cells(1,1).Row())这段代码是复制每一个连续区域到指定列(H)相应的行。本回答被网友采纳