Question

 vba如何写代码读取指定Excel中指定几行与列的内容？

版本2010
我是一个新手，正在学习vba，请高手指教在excel vba中如何实现读取指定Excel中指定几行与列的内容？
比如：我想获取excel a到k列的内容，根据实际内容获取最大行数内容

Answer 1

表名.cells(行号，列号)
表名.range("A1")
value为默认属性，一般不写。表名大多为sheet1、sheet1之类，如果是当前表，可以省略

追问

由于是新手，可否有完整的代码？

追答

举个例子，当前表中，B2＝A2*2
cells(2,2)=cells(2,1)*2
或 range("B2")=range("A2")*2

追问

抱歉可能我表达不对
我是在excel做了一个窗体程序，想实现通过一个按钮点击读取指定excel中指定的行列

追答

问题是你读取以后赋值给谁，哪个变量？如果是一个一个的读，你可以赋值给一个一个的变量。如果是一个区域的值，那就得赋值给一个数组变量。
大多情况下，我们都是利用循环，来一个一个完成指定任务。比如说根据A列数据完成某项操作。大多会用以下语句
For i=2 to cells(rows.count,1).end(xlup).row
功能语句，如：cells(i,3)=cells(i,1)*2
next

Answer 2

cells(i,j).value
i为行号，j为列号。
如，需要从A1到B10填写递增的数据，可以如下代码：
Sub test()
Dim i As Integer, j As Integer
For i = 1 To 10 '第1行到第10行
For j = 1 To 2 '第1列到第2列
Sheets("sheet1").Cells(i, j).Value = i * 10 + j 'sheet1为需要处理的表名
Next j
Next i
End Sub