excel宏能实现如下功能吗？

来源：百度知道 编辑：UC知道 时间：2024/07/07 21:57:06
点击宏，当前sheet（名字不确定）中1和2列的数据写入另一个sheet（名称为“姓名”，这个为宏自己建立的）中
Sub 复制()
Sheets("姓名").[a1] = "卡片编号"
Sheets("姓名").[b1] = "补贴金额"
a = Sheets("安监员出勤").[a1].CurrentRegion.Rows.Count '判断学生名单的行数。
For i = 2 To a
k = Sheets("姓名").[a1].CurrentRegion.Rows.Count + 1
Sheets("姓名").Cells(k, 2) = Sheets("安监员出勤").Cells(i, 5)
Sheets("姓名").Cells(k, 1) = Sheets("安监员出勤").Cells(i, 3)
Next
End Sub
1.代码中“姓名”这个sheet如何用宏直接建立，
2.“安监员出勤”这个sheet名称不确定，如何替换？

Sub Sample1()

Dim objWorkSheet As Worksheet
Dim intRow As Integer

intRow = 1
For Each objWorkSheet In Worksheets
Sheets("Sheet1").Cells(intRow, 1).Value = _
objWorkSheet.Name
intRow = intRow + 1
Next

End Sub

给你个这个，你自己看看吧，看你写的代码应该知道怎么用的吧。