Question

用Excel VBA编写代码：输出数据： 第一组数据在 A1：A9 ，输出代码是什么样子的？

比如 a1到a9 输入到表格 A1:A9，而b1到b9则对应B1：B9，依次类推 ，求VBA输出代码~！！！！解决问题再加10分
要求 有很多数据输入Excel表格 每满9格换行 得到的数据应该是这样的：A1：A9 B1：B9 C1：C9........ 解决问题以后再追加10分

Answer 1

你好：
你的问题不难，
For a = 1 To Val(InputBox("行数"))
For b = 1 To 9
Cells(a, b) = "你所需要填入的数据来源"
Next
Next
这样的循环就可以达到你要的效果拉，不懂追问！

追问

For a = 1 To Val(InputBox("行数"))
这里的行数可以自动扩充不？不用输入的。。。。自动扩充，不用设定上限

追答

什么叫自动扩充？关键是要看你源数据有多少行，这里就写多少行数。这个行数当然可以自动获取你的源数据行数进行自动调整！

追问

就是我不知道数据源有多大。。。所以需要自动调整。。。代码该怎么改？

追答

哦那你就把VAL(INPUTBOX("行数"))改成
sheets("源数据表的名称").range("a65000").end(xlup).row
意思是，根据sheets表格中，从第65000行往上数，如果遇到有数据的单元格后，那么就返回此行的行数，比如是500，那么就是说你的数据源一共有500行了。

Answer 2

直接使用数组赋值呀。
定义a1为数组
range("A1:A9").value=a1
就行了

Answer 3

单元格引用方法：以Sheet1表为例。
如果VBA代码放到Sheet1对象外面用Sheet1.Cells(行号,列号)，如果放到Sheet1对象里面用Cells(行号,列号)
行号指第几行，列号指第几列，二者用数字（或代表数字的变量）表示。比如：
Sheet1.Cells(1,1)表示Sheet1表的A1单元格，Sheet1.Cells(5,2)表示Sheet1表的B5单元格。
For m = 1 To 9
Sheet1.Cells(m,1) ' 这样可以循环得到Sheet1表的A1:A9单元格
Next m

追问

这样可以得到 A1：A9 那么B1：B9的代码怎么办？

追答

晕死~~你的追问也太令人无语了……难道你从来不仔细看别人的答案了吗？
我上面有提到“Cells(行号,列号)表示单元格引用”，既然用For循环语句得到了A1:A9单元格
是Sheet1.Cells(m,1) ，难道B1:B9的代码你还看不出来？当然是Sheet1.Cells(m,2) 了！