Question

excel 表中有大量数据,需要查找相同的,然后合并

excel 表中有大量数据,现在如果在 A1列中, 有 A1,A2,A3,A8, 文字一致, 那么对应 的 D列中D1中就没有内容, D2,D3,D8中有文字,现在想合并D列中的D2,D3,D8中的文字到F1中, 需要怎么操作? 求助请告知怎么操作~~万分谢谢

Answer 1

右键SHEET1复制代码
Sub MergeSameCells()
Dim lRow As Integer
Application.DisplayAlerts = False
With ActiveSheet
lRow = .Range("A65536").End(xlUp).Row
For i = lRow To 2 Step -1
If .Cells(i, 1).Value = .Cells(i - 1, 1).Value Then
.Range(.Cells(i - 1, 1), .Cells(i, 1)).Merge
End If
Next
End With
Application.DisplayAlerts = True
End Sub
关闭窗口，按ALT+F8，宏-执行！

Answer 2

f1=d2&d3&D8

追问

嘿嘿,太谢谢及时回答了,
但是如果只有一组A1,A2,A3,A8那就好了

现在的问题是有很多个这样的组,
首先只要在A列中查到是相同内容的,把需要把对应的D列中的内容合并
例如; A7,A8,A12,A15中的文字是一样,那么就把D7,D8,D12,D15文字合并到F7
A20,A22,A23,A28的文字是一样,那么就把D20,D22,D23,D285文字合并到F20
A30,A32,A33,A35的文字是一样,那么就把D30,D32,D33,D35文字合并到F30
….…
..
有很多组这样的

追答

f7=if(A7=A8=A12=A15,D7&D8&D12&D15,"")