VB2008自动化excel如何换行？

你是说同一单元格中换行，还是换到下一行

如果是同一单元格中换行，你每次写结果前在结果前面加上vbCr的转行符

如果是转到下一行，那么你应该定义一个变量记住你已经写到第几行了，下次写的时候自动累加。

如果并不是同次运行程序写结果，那么变量可能保存不下来，那么就用遍历，写入之前先顺着某列往下探测，探测到那行没有写东西，就用那行行号就可以。

首先要有一个按钮，定义为CommandButton1，双击CommandButton1写入以下代码
——————————————————————————————
private sub CommandButton1_Click()'向工作表中添加一条新的记录按钮事件
Range("F11").Select'选择工作表中任意一个表格
Selection.End(XlDown).Select'将单元格选择移动到所选单元格所在列的最后一个单元格
Selection.End(XlToLeft).Select’将单元格选择移动到所选单元格所在行的最左端的单元格
__________________________________________________
接下来就是对文本的输入操作啦，以上的代码的作用是为数据表最底端插入一条记录。
具体你的程序是怎样的？
不过，你按照上面的思路可以自己揣摩一下。
希望我的回答对你有所帮助。
祝你生活愉快。