代码都是在视图--宏--点选所需宏名--编辑,然后就看到代码了,比如你人员表里的让a2开始有效,大概就是下述代码完成的吧
Sub 提取姓名()
'
' 提取姓名 Macro
' 宏由 微软用户 录制,时间: 2013-2-21
'
x = Sheets("人员").Range("A65535").End(xlUp).Row - 1 '统计人员表行数
s = ""
For i = 2 To x + 1
'大概i=2就是从第二行开始抽取人名吧
s = s + Sheets("人员").Range("b" & CStr(i)) + "、"
.
.
.