VBA Excel范围到单元格

Question

我需要将一个单元格区域复制到另一个表示第一个单元格的区域。 像这样：

.Cells(1,1) = .Range("B1:B5")

请提供一些帮助，它不起作用，并且我是VBA Excel的全新用户！

Answer 1

我不确定您要复制的内容到底是什么还是要复制到什么地方，但是...

With Workbooks("Book1").Worksheets("Sheet1")
    .Cells(1, 1).Value = .Range("B1").value
End With

会将单元格B1的内容复制到同一页上的单元格A1中。 如果需要复制范围B1：B5中的5个单元格，则需要指定一个范围作为第一个参数。 您可以这样做：

.Range(.Cells(1, 1).Address & ":" & .Cells(5, 1).Address).value = .Range("B1:B5").value

这会将B1到B5的内容复制到A1到A5。

Excel会将工作簿中的任意数量的单元格视为1或20或更多作为范围，单元格使您只能引用单个单元格。 当您需要指定一个范围（例如Range("B1:B5") ，可以找到定义该范围的单元格，并使用.Address来获取其字符串格式的范围地址。 因此， Cells(1, 1).Address返回"$A$1"并在范围引用中并置它们将为您提供范围，只要您记住中间的“：”即可。

希望能有所帮助。