EXCEL--请高手编写vba程序

目的：选择任意一个单元格，
然后以这个单元格为基准，向下依次列出：
姓名
电话
地址

---

楼上的野漏程序写备脊弊得很好，不过我觉得把这个程序放仿族到双击事件里要好些
选中要填充的单元格，然后双击就填充
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rng As Range
Set rng = Target
arr = Array("姓名", "电话", "地址")
If rng.Count = 1 Then
rng.Resize(3, 1) = Application.WorksheetFunction.Transpose(arr)
End If
End Sub

---

Private Sub Worksheet_SelectionChange(ByVal TARGET As Range)
Dim r As Integer, c As Integer

If TARGET.MergeCells Then Exit Sub
If TARGET.Areas.Count > 1 Then Exit Sub
If TARGET.Count >枝者碧猛举 1 Then Exit Sub
r = TARGET.Row
c = TARGET.Column
Cells(r + 1, c) = "姓名"
Cells(r + 2, c) = "电话"
Cells(r + 3, c) = "地嫌卜址 "
End Sub

---

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rng As Range
Set rng = Selection
arr = Array("姓名", "电蚂友话", "地址")
If rng.Count = 1 Then
rng.Resize(3, 1) = Application.WorksheetFunction.Transpose(arr)
Else
MsgBox "选大陵了闷仿槐多个单元格"
End If
End Sub

---

这个方案设想不好，用程序处理念轮茄使用时会破坏你的数据仔察，比如你不小心在你的数据里面点击一下就会写上
姓名
电话
地址
而桐段且，这个修改不能恢复，除非你选择不存盘

---