查找并合并有各个表格sheet1aa-10 bb-10 cc-10 想把这个表格转化为aa-102b-103c-104bb-103a-102c-104cc-104a-102b-103怎么写公式或者宏,谢谢高手
Sub 按钮1_单击()
arr = Sheet1。UsedRange
For j = 1 To UBound(arr)
For i = 3 To UBound(arr, 2)
arr(j, i) = Columns(2)。 Find(what:=arr(j, i), lookat:=xlPart)。Value
Next i
Next j
Sheet2。Cells(1, 1)。 Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub
。全部
Sub 按钮1_单击()
arr = Sheet1。UsedRange
For j = 1 To UBound(arr)
For i = 3 To UBound(arr, 2)
arr(j, i) = Columns(2)。
Find(what:=arr(j, i), lookat:=xlPart)。Value
Next i
Next j
Sheet2。Cells(1, 1)。
Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub
。收起