我有一个宏来创建一个新的工作表,根据另一个工作表中的单元格的值命名该工作表(即 sheet1.Range("F3").value
) .
之后,我需要转到我的数据所在的同一工作簿中的另一个工作表,选择某些数据并将其传输到新工作表 .
这是我用来创建新工作表并为其命名的代码 .
sub createNewSheet()
sheet_name_to_creat = sheet1.range("F3").value
for rep = 1 to (worksheets.count)
if lCase(Sheets(rep).name = Lcase(Sheet_name_to_create) Then
MagBox "This Sheet already exists"
exit sub
end if
next
Sheets.add after:=sheets(sheets.count
Sheets(ActiveSheet.Name).name=Sheet_name_to_create
end sub
1 回答
您可以声明工作表变量并将数据表和新添加的工作表放入其中 . 然后很容易操纵任何一个数据 .