在Excel中使用VBA编程自动填写数据，可以通过以下步骤实现：
打开VBA编辑器
按下 `Alt + F11` 打开VBA编辑器。
选择工作表
在左侧的“工程”窗口中，双击你需要操作的工作表（例如“Sheet1”）。
编写代码
在代码窗口中，编写VBA代码来实现你的数据填充需求。以下是一些示例代码：
示例1：自动填充数字
```vba
Sub 自动填充数字（）
For i = 1 To 10
Cells（i, 1）.Value = i
Next i
End Sub
```
这段代码会在A1到A10单元格中自动填充数字1到10。
示例2：根据公式自动计算
```vba
Sub 自动计算平方（）
For i = 1 To 10
Cells（i, 2）.Value = Cells（i, 1）.Value * Cells（i, 1）.Value
Next i
End Sub
```
这段代码会在B1到B10单元格中自动计算A1到A10单元格中数值的平方。
示例3：等差数列填充
```vba
Sub 等差数列填充（）
Dim i As Integer
Dim startValue As Integer
Dim stepValue As Integer
startValue = Cells（1, 1）.Value '获取第一个单元格的值
stepValue = Cells（2, 1）.Value - Cells（1, 1）.Value '计算步长
For i = 5 To 20
Cells（i, 1）.Value = startValue + （i - 1） * stepValue
Next i
End Sub
```
这段代码会在A5到A20单元格中自动填充等差数列1, 3, 5, ..., 19。
示例4：自动填充文本
```vba
Sub 自动填充文本（）
Dim i As Long
For i = 2 To 100
Cells（i, 1）.Value = "数据" & i
Cells（i, 2）.Value = i * 2
Next i
End Sub
```
这段代码会在A列填入“数据2”到“数据100”，在B列填入对应的双倍数字。
示例5：批量创建工作表并填充数据
```vba
Sub BatchCreateSheets（）
Dim wsTemplate As Worksheet
Dim wsNew As Worksheet
Dim rngProjects As Range
Dim cell As Range
Dim strProjectName As String
Set wsTemplate = ThisWorkbook.Worksheets（"模板"）
Set rngProjects = ThisWorkbook.Worksheets（"项目列表"）.Range（"A2:A10"）
For Each cell In rngProjects
strProjectName = cell.Value
Set wsNew = Worksheets.Add（After:=Worksheets（Worksheets.Count））
wsNew.Name = strProjectName
wsTemplate.Cells.Copy
wsNew.Cells.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
wsNew.Range（"B2"）.Value = strProjectName
Next cell
End Sub
```
这段代码会遍历项目列表，生成新工作表并填充数据。
示例6：读取和写入单元格数据
```vba
Sub ProcessData（）
Dim cellValue As String
cellValue = Range（"A1"）.Value
Range（"B1"）.Value = "处理后：" & cellValue
Dim rowNum As Integer
rowNum = 1
Cells（rowNum, 1）.Value = "新数据"
End Sub
```
这段代码展示了如何读取A1单元格的值，并将处理后的值写入B1单元格。
示例7：汇总数据
```vba
Sub 汇总数据（）
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "汇总表" Then
ws.Range（"A1:B10"）.Copy
ThisWorkbook.Sheets（"汇总表"）.Cells（Rows.Count, "A"）.End（xlUp）.Offset（1, 0）.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
Next ws
End Sub
```
这段代码会遍历工作簿中的每个工作表，并将A1到B10单元格的数据复制到“汇总