用于在整个工作簿中填充单元格的Excel封面

-1

我正在尝试为Excel工作簿创建封面，用户将填充这些单元格，然后宏将其粘贴到工作簿中的所有工作表中。用于在整个工作簿中填充单元格的Excel封面

封面要求提供D列和I列单元格中的信息，这些信息可能在整个工作簿中很常见。我正在尝试尽快填写此工作簿。

我对Excel VBA有基本的了解，但需要帮助写这个，谢谢。

2016-06-28 A. Reid

这是非常广阔的。如果您对Excel VBA有基本的了解，那么您肯定已经为此任务编写了一些代码？听起来好像你只需要在表格中循环并填充一些单元格。输入数据的用户表单也可能是一个解决方案（取决于输入的数据）。 – arcadeprecinct

对不起，我很抱歉。我只有我从这个网站获得的代码，比如'Set targetRange = newSheet。[A1]''ActiveWorkbook.Sheets（1）.Range（“A1：Q1”）。Copy targetRange' 所以我明白了复制在活动工作表上，但我不确定如何复制可能不活动的多个工作表。 –

你说你知道如何使用'ActiveSheet'，但不知道如何引用其他工作表，但是你的示例包含多个对工作表的引用（不必是活动的）。 '表单（1）'和'newSheet'用于指定特定表单上的范围，而“ActiveSheet”根本不用。 – arcadeprecinct

您的代码使用像这样

Sub Main 
    Dim cellsToCopy As Range 
    Dim shtNames as Variant, shtName As Variant 

    Set cellsToCopy = Worksheets("CoverSheet").Range("D5, D11, I3, I12") '<--| change both "CoverSheet" name and its cells address list to fit your needs 

    shtNames = Array("firstSheet", "secondSheet", "thirdSheet") '<--| change sheets names to paste cellsToCopy values into 

    For Each shtName in shtNames 
    Worksheets(shtName).Range(cellsToCopy.Address).Value = cellsToCopy.Value 
    Next shtName 

End Sub

来源

2016-06-28 09:32:52 user3598756

用于在整个工作簿中填充单元格的Excel封面

回答

相关问题