你的要求只能用VBA实现,不管A列有多少行,先对A列排序,然后逐一将A列内容连接,有重复的不要,直到完成,结果放在B1起的单元格中。
请建立一个宏,编辑并复制下列代码,运行即可:
Sub Macro1()
Dim i As Long
Dim j As Long
Dim lastrow As Long
j = 1
lastrow = Worksheets("Sheet1").UsedRange.SpecialCells(xlCellTypeLastCell).Row
Columns("A:A").Select
Selection.Sort Key1:=Range("A1")
Cells(j, 2) = Cells(1, 1)
For i = 1 To lastrow
If Cells(i, 1) <> Cells(i + 1, 1) And Cells(i + 1, 1) <> "" Then
j = j + 1
Cells(j, 2) = Cells(i + 1, 1)
End If
Next
End Sub
如结果符合你要求,请采纳并加分。
追问这个很好,不过不是我要的,我这个是不能给A列排序的,我想做个库存的表,A列中要不断加入新的或老的数据,B列自动显示所有库存总类,A列和B列会在Sheet1和Sheet2两个表格中,最好是能用函数公式。谢谢!
本回答被网友采纳