Question

我正在尝试搜索每个工作表上的所有标题，如果数组中缺少标题，请插入列，然后将这些标题放入其中。

这是我在网上找到并修改的代码。

如果缺少多个标题，则仅替换添加的标题。例如。套件/单元和徽标均缺失，因此它会插入套件/单元的列，然后将其替换为标题徽标。

此外，我需要它才能用于工作簿中的所有工作表。

For Each Word In Array("Company", "First Name", "Last Name", "Email", "Category", "Address", "Suite or Unit?", "Suite/Unit", "City", "Province", "Postal Code", "Phone", "Fax", "Website", "Service Areas", "Logo") 
Set aRange = Range("a1:iv1").Find(What:=Word, LookAt:=xlWhole, MatchCase:=False)
If aRange Is Nothing Then
Cells(1, Columns.Count).End(xlToLeft)=Word
End If
Next Word

Answer 1

也许类似于以下内容，其中工作表集合的循环确保所有工作表都得到处理。缺少的列添加到末尾。

$ virsh net-dhcp-leases default

Expiry Time          MAC address        Protocol  IP address                Hostname        Client ID or DUID
-------------------------------------------------------------------------------------------------------------
2018-11-06 15:47:33  52:54:00:1b:ee:f6  ipv4      192.168.122.6/24          vm1             -
2018-11-06 15:36:58  52:54:00:d7:1c:2e  ipv4      192.168.122.4/24          vm2             -

在所有工作表上插入缺少的列

1 个答案: