用Excel地VBA怎么样获取指定区域单元格里面地所有数据

Question

如题所述

Answer 1

使用for each遍历所选择的单元格即可。

如下代码将选择区域的单元格输出在立即窗口。

Sub Get_Data()
Dim myRange As Range
Dim myCell As Range
Set myRange = Application.InputBox("选择区域", Type:=8)
For Each myCell In myRange
Debug.Print myCell.Value
Next
End Sub

Answer 2

将该区域中的数据装入数组就行了。
如
mAry=range("A2:C8") '将A2:C8区域中的值装入数组
[f1].resize(ubound(mAry,1),ubound(mAry,2))=mAry '将数组mAry的内容填充到以F1起始格的矩形区域本回答被提问者和网友采纳