vba - Excel 复制到多个工作表

Question

我有一个主工作表和几个副本（基本上它们都是相同的布局，但每张工作表的日期不同）我试图让用户在主工作表上输入一些内容，然后打开一个输入框并允许用户选择多个工作表（选项卡）并将该输入复制到选定的选项卡。

我似乎无法弄清楚如何允许用户选择一个或多个选项卡，然后将主副本中的数据转移到这些选项卡中的相同位置。

Dim rng As Range
Dim tabs As Range

Sheets("MONTH").Select

Set rng = Application.InputBox(Prompt:="Select the cell(s) to copy", Type:=8)

Range(rng.Address).Select
Selection.Copy

Set tabs = Application.InputBox(Prompt:="Select the Tabs to copy", Type:=8)

For Each tabs In ActiveWindow.SelectedSheets
     MsgBox tabs.Name
Next tabs

'Sheets("d31").Activate
Worksheets(tabs).Select

Range(rng.Address).Select
ActiveSheet.Paste

Application.CutCopyMode = False

标签： vbainputcopy