[求助]根据某列条件，针对另一列数据进行合并

各位大侠们好：

今天又有一个新的问题需要向各位请教。

就是根据A列相同数据条件，针对对应的B列数据进行合并，并保留B列所有单元格中非重复内容。

同样也是涉及的数据量很大，4000条以上的数据量，昨晚小弟做到1点多，费劲死了！

所以有意向各位大侠们请教，用VBA的方式自动进行实现。

 详见附件所示。

谢谢！！非常感谢！！

DRej7eJ1.rar (2.28 KB, 下载次数: 31)

2008-9-2 12:21 上传

点击文件名下载附件
[求助]根据某列条件，针对另一列数据进行合并

自己赶紧顶一下，要不沉下去了，呵呵！

大侠们，赶紧帮帮忙啊。呵呵。

急着用。谢谢！非常感激！！

R.R老师你好：

首先，老师所做的程序针对B列为文字的情况处理的很好，如sheet2中所示。非常感谢！

但是，在处理sheet1中，对应A列的B列为相同数据的情况，出现了如图示问题。请大侠查探问题的根源在哪里。

谢谢！辛苦！！

IfsBZ7XO.rar (18.17 KB, 下载次数: 43)

2008-9-3 00:28 上传

点击文件名下载附件
[求助]根据某列条件，针对另一列数据进行合并

不是，只是区域性的在一起。

A列中的代码可能会再次在后面重复出现。

谢谢！等待高手的回复，^_^

比较通用的：

sub rr

MergeData (2,1,"sheet1")'对工作表“sheet1”，根据第2列数据，对第1列进行合并

end sub

Sub MergeData(数据列 As Long， 合并列 As Long，处理工作表 As String)
Dim i As Long, n As Long
Dim xm As String
Application.DisplayAlerts = False
With Sheets(处理工作表)
  i = 2
  xm = Chr(10) & .Cells(2, 合并列) & Chr(10)
  For n = 3 To .Range("A65536").End(xlUp).Row + 1
    If .Cells(n, 数据列) <> .Cells(n - 1, 数据列) Then
      .Range(.Cells(i, 合并列), .Cells(n - 1, 合并列)).MergeCells = True
      .Cells(i, 合并列) = Mid(xm, 2, Len(xm) - 2)
      i = n
      xm = Chr(10) & .Cells(n, 合并列) & Chr(10)
    Else
      xm = IIf(Trim(.Cells(n, 合并列)) <> "" And InStr(xm, Chr(10) & .Cells(n, 合并列) & Chr(10)) = 0, xm & .Cells(n, 合并列) & Chr(10), xm)
    End If
  Next
  With .Range(.Cells(2, 合并列), Cells(n - 1, 合并列))
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
  End With
End With
Application.DisplayAlerts = True
End Sub

请修改一下：

 For n = 3 To .Range("A65536").End(xlUp).Row + 1
 For n = 3 To .Cells（65536,数据列).End(xlUp).Row + 1

新的程序运行时，出现“下标越界的情况”

请您给出完整的，可以直接使用的程序，不好意思。我是菜鸟！呵呵

谢谢！！非常感谢！！