Question

我的目标是最终在第一张工作表中创建一个螺栓列表，在我填充同一文档中的其他工作表时自动更新。其他纸张用于机器的不同组件。我必须在cad中测量一堆不同的螺栓，所以当我逐个浏览每个组件时，有一个自填列表会很好。

Answer 1

假设组件列表在每个其他工作表的同一列中（对于该列说“X”）然后将每个工作表（第一个除外）中的列X复制到第一个工作表中的一列中，然后删除重复项 - 结果是一个唯一的列表。

Sub Assembly()
  Dim ws As Worksheet
  Dim y As Integer
Dim t As Range
  For y = 2 To Worksheets.Count
  Set t = Worksheets(1).Range(Rows.Count, 1).End(xlUp).Offset(1, 0) 'first blankcell in column A
   Application.Intersect(Worksheets(y).Range("X:X"), Worksheets(y).UsedRange).Copy t
Next y
Worksheets(1).Range("A:A").RemoveDuplicates Columns:=1

End Sub

如何创建一个列表，在Excel中计算并显示多个工作表中重复项的实例？

1 个答案: