我需要在 Excel 中输入相同的 Excel 公式,以便它按顺序继续。因此sheet 1
需要有='Booking Sheet'!F1
Sheet 2 ='Booking Sheet'!F2
,依此类推。
有没有办法可以做到这一点而不用将其分别输入到每个工作表中,因为有 40 张工作表并且我必须对每张工作表中的大约 75 个单元格执行此操作。
有人告诉我要按住Ctrl按钮,突出显示所有工作表并输入,但它并不按照顺序进行。
答案1
您可以使用此宏。它将遍历所有命名的表格delivery
并输入一个公式,A1
该公式将为每次交付提供不同的F
编号。所以
工作表Delivery 1
A1
将有一个公式='Booking Sheet'F1
工作表Delivery 2
A1
将有公式 =Booking Sheet'F2
等等
Sub EnterFormulas()
Dim ws As Worksheet
For Each ws In Sheets
If InStr(1, ws.Name, "Delivery", vbTextCompare) Then
ws.Range("A1").Formula = "='Booking Sheet'!F" & Split(ws.Name, Chr(32))(1)
End If
Next
End Sub
答案2
抱歉,我发帖说我恋尸癖,但我在寻找类似的东西时偶然发现了这个。有一个更优雅的答案,我会在这里记录下来。
据推测,每张交货单都会从预订单上的列表中提取数据,因此有连续的“预订单”!F1..F2..等等
最简单的方法是给予每张交货单一个唯一的参考,我猜是从 1 到 40 的序列号。还可以使用该参考作为预订表上的列表的索引。
然后在交货单上使用查找公式,查找预订列表以查找相关数据。这样您就可以在每张表上使用相同的公式。
如果您熟悉宏,则只需要一张交货单作为模板,而不是 40 张。然后,宏会逐行逐行地填写交货单,输出交货单的 PDF 文件,然后对每次交货重复此操作