EXCEL vba 将工作表的名字用变量代替

Sub dfsa()
an = Sheets(Sheets.Count - 1).Name
Sheets(Sheets.Count - 3).Select
ActiveSheet.Cells(4, 5).Select
ActiveCell.FormulaR1C1 = "=" & an & "!R[2]C[2]"
End Sub

Sheets("工作表1")就可以表示名来字叫做“源工作表1”的工作表，你的语句这么写：zd
z = Sheets("工作表1").Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
Sub addas()

Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Year(Now()) & "-" & Month(Now()) & "-" & Day(Now())

End Sub

直接引用就好了吧：
Sheets("Day" & i).Range("A1") ="aaa"