Question

我是Excel VBA的新手。我想根据单元格值插入单元格数。

我有sheet1，我想使用b4作为要插入的工作表数量（这是一个模板）的参考。

例如，如果b4的值= 4，我想复制模板表4次。

我如何在vba中这样做？

感谢。：）

Answer 1

没有魔法，在循环中逐个创建它们，将每个新的放在最后。编辑：您还想将它们重命名为1,2,3,4 ......所以：

Sub CreateSheets()
    Dim i As Long
    With ThisWorkbook.Sheets
      For i = 1 To Sheet1.Range("B4").Value2
        .Item("Template").Copy After:=.Item(.Count)
        .Item(.Count).Name = i
      Next
    End With
End Sub

Answer 2

这样的事情应该有效：

for %%F in ( d:\temp\test\*.* ) do move /Y %%F d:\temp\archive

Answer 3

或类似的东西......

Sub CopyTemplate()
Dim ws As Worksheet, wsTemplate As Worksheet
Dim n As Integer, i As Long
Application.ScreenUpdating = False
Set ws = Sheets("Sheet1")
Set wsTemplate = Sheets("Template")     'Where Template is the name of Template Sheet, change it as required.
n = ws.Range("B4").Value
If n > 0 Then
    For i = 1 To n
        wsTemplate.Copy after:=Sheets(Sheets.Count)
        ActiveSheet.Name = i
    Next i
End If
Application.ScreenUpdating = True
End Sub

Excel VBA：根据单元格值插入N个表单

3 个答案: