合并单元格？

cheta212

感谢，感谢。知识有限，得花时间学习理解准提老师代码！

准提部林

cheta212 发表于 2017-11-2 14:12
还有就是如果A列和B列不挨，如B列的数据在F列呢？学习了您的代码，感觉是把AB列作为一个整体考虑！

沒有實際文件，湊合做個：
Sub TEST()
Dim Arr, xD, i&, T1$, T2$
Call ClearAll
Sheets("Sheet1").UsedRange.Copy [A1]
Arr = ActiveSheet.UsedRange.Value
Set xD = CreateObject("Scripting.Dictionary")
For i = 2 To UBound(Arr)
　　T1 = Arr(i, 1): T2 = Arr(i, 8): Arr(i, 8) = ""
　　If T1 = "" Or T2 = "" Then GoTo 101
　　If xD(T1) = 0 Then xD(T1) = i: xD(T1 & T2) = 1: Arr(i, 8) = T2
　　If xD(T1 & T2) = 0 Then Arr(xD(T1), 8) = Arr(xD(T1), 8) & "/" & T2: xD(T1 & T2) = 1
101: Next i
With [A1].Resize(UBound(Arr), UBound(Arr, 2))
　　.Value = Arr
　　On Error Resume Next
　　.Columns(8).Offset(1, 0).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
　　On Error GoTo 0
End With
End Sub
　
　
XX20171102_v2.rar (13.94 KB, 下载次数: 5)

2017-11-2 19:51 上传

点击文件名下载附件