帮忙改下这段excel宏代码！谢谢

来源：百度知道 编辑：UC知道 时间：2024/05/16 19:46:54
Sub 复制()
Sheets("导入").[a1] = "卡片编号"

Sheets("导入").[b1] = "补贴金额"

a = Sheets("安监员出勤").[a1].CurrentRegion.Rows.Count

For i = 2 To a

k = Sheets("导入").[a1].CurrentRegion.Rows.Count + 1

If Sheets("安监员出勤").Cells(i, 3) <> "" Then

Sheets("导入").Cells(k, 2) = Sheets("安监员出勤").Cells(i, 5)

Sheets("导入").Cells(k, 1) = Sheets("安监员出勤").Cells(i, 3)

End If

Next

End Sub

1.将Sheets("导入").[a1] = "卡片编号"这句前边加上一句建立“导入”这个工作表的代码
2.由于Sheets("安监员出勤")，这个安监员出勤这个不固定，也可能是别的，能不能写段通用代码！谢谢！

能解决的话，不胜感激！！！！

Sub 复制()
Dim a As Integer
Dim b As String
Dim i As Integer
Dim k As Integer

Sheets.Add
ActiveSheet.Name = "导入"

Sheets("导入").[A1] = "卡片编号"
Sheets("导入").[B1] = "补贴金额"
b = InputBox("表名", "表名")
a = Sheets(b).[A1].CurrentRegion.Rows.Count
For i = 2 To a
k = Sheets("导入").[A1].CurrentRegion.Rows.Count + 1
If Sheets(b).Cells(i, 3) <> "" Then
Sheets("导入").Cells(k, 2) = Sheets(b).Cells(i, 5)
Sheets("导入").Cells(k, 1) = Sheets(b).Cells(i, 3)
End If
Next

End Sub