Question

我有一行数据要自动复制到所有其他工作表，因为它们是自动创建的。我该怎么做？

Answer 1

我刚刚对您的代码进行了一处更改：“使用Application.Sheets（i）”。 Excel只是不知道将该文本放在哪个工作表上。：）

Sub DayAdder()
DaysInMonth = "Enter Days"
Counter = Application.InputBox(DaysInMonth)
Sheets.Add After:=Sheets(Sheets.Count), Count:=Counter
CurMonth = "Enter The Month"
newName = Application.InputBox("Name", CurMonth, "", Type:=2)
For i = 1 To Application.Sheets.Count
    Application.Sheets(i).Name = newName & " " & i
    With Application.Sheets(i)
        .Range("A1").Value = "NAME"
        .Range("B1").Value = "AGE"
        .Range("C1").Value = "JOB"
        .Range("D1").Value = "OCCUPATION"
        .Range("E1").Value = "FAMILY"
        .Range("F1").Value = "WORK"
        .Range("G1").Value = "FRIEND"
    End With
Next

End Sub

我还在工作表名称和数字之间添加了一个空格，因此它是“7月1日”而不是“7月1日”。

如果这样可以解决您的问题，请将其标记为答案！：）

VBA将数据从一张纸复制到多张纸

1 个答案: