我试图通过复制并将新解析的数据粘贴到一个新创建的工作表中来完成一个相当大的宏,该工作表以日期命名,我将数据存储在数据插页中的单元格B2中。因此,最简单的说,我想创建一个新工作表,并将其命名为位于不同工作表中的单元格B2中的内容(日期)。
ActiveSheet.Range("A3:Q" & lastRow).Select
Selection.Copy
ActiveWorkbook.Sheets.Add After:=Worksheets(Worksheets.Count)
Sheets(ActiveSheet.Name).Name = ActiveWorkbook.Sheets(Trade_Data_Insert).Range("B2")
答案 0 :(得分:1)
将您的宏更改为
Dim newSht As Worksheet
ActiveSheet.Range("A3:Q" & lastRow).Select
Selection.Copy
Set newSht = ActiveWorkbook.Sheets.Add(, Worksheets(Worksheets.Count))
newSht.Name = ActiveWorkbook.Sheets(Trade_Data_Insert).Range("B2").Value
也...... Trade_Data_Insert
是一个变量?如果它的名称你需要把它放在“”