我正在尝试执行以下操作:
用户选择2个范围:例如第一范围A1:A20,第二范围C1:E20我想将第二个范围内的所有值附加到第一个范围内。但是,此部分v = v & .Areas(2).Columns(1).Value
导致Type Mismatch
With Selection
For i = 1 To .Areas(1).Count
v = ""
For j = 1 To .Areas(2).Columns.Count
v = v & .Areas(2).Columns(1).Value
Next j
.Areas(1)(i).Value = v
Next i
End With
为了从aRow
寻址aCol
,Range1
上的单元格,可以使用Range1.Offset(aRow, aCol)
。
您可以省略行值,而只需将列引用作为Range1.Offset(,aCol)
。
这在this URL中进行了说明。