vba向excel表中插入数据？

i = 2

Do While Cells(i, 1) <>""

i = i + 1

Loop

Cells(i, 1) = "填入内容"

Cells(i, 2) = "填入内容"

Cells(i, 3) = "填入内容"

原理：找到第一列最后空白的单元格作为输入数据行

提供个参考，假如从101开始给表单控件或窗体控件的标签赋值，代码如下：

Sub fz()

Dim i&

i = 100'编号初始值为100

For Each shp In ActiveSheet.Shapes

If shp.Type = 8 Then'表单控件标签

i = i + 1

shp.DrawingObject.Caption = i

ElseIf shp.Type = 12 Then'窗体控件标签

i = i + 1

shp.DrawingObject.Object.Caption = i

End If

Next

End Sub

运行代码测试前请先将数据备份！！！

Microsoft Office Excel 2007 不包括自动将文本标签附加到 XY 散点图或气泡图中的数据点的内置命令。但是，您可以创建一个用来向这两种类型的图表中添加数据标签的 Microsoft Visual Basic for Applications (VBA) 宏。

用来向 XY 散点图中添加数据标签的示例 VBA 宏。此宏还可以用来向气泡图中添加数据标签。

http://support.microsoft.com/kb/914813/zh-cn

---