[已解决]EXCEL合并公式请教<有点难啊>==紧急,在线求救<附件追加>

k411 · 发表于 2012-5-2 13:22

本帖最后由 k411 于 2012-5-2 13:58 编辑

EXCEL合并公式请教<有点难啊>

使用前面两列的数据,利用公式得出结果栏位的合并.

即,行标列编码的数据是空的事,机型全部合并到结果栏位.并在中间加入","<逗号>

execel.rar (6.96 KB, 下载次数: 45)

蝶·舞 · 发表于 2012-5-2 13:36

用VBA，公式不擅长文本的处理，特别是多单元格文本的合并

flyacc · 发表于 2012-5-2 13:38

你应该上传个附件。。。。

k411 · 发表于 2012-5-2 13:59

请各位大侠帮忙啊.附件已经追加.

ws278106483 · 发表于 2012-5-2 16:34

Sub heb()
  Dim x, mrg As Range
Application.DisplayAlerts = False
   Set mrg = [a2]
   For x = 2 To Range("a65536").End(xlUp).Row + 1
      If Cells(x, 1) = Cells(x - 1, 1) Then
      Set mrg = Union(mrg, Cells(x, 1))
      Else
      mrg.Merge
      Set mrg = Cells(x, 1)
      End If
   Next x
Application.DisplayAlerts = True

End Sub
Sub tianc()
  Dim x As Integer
  Dim mrg As Range
   Set mrg = [a2]
For x = 2 To Range("a65536").End(xlUp).Row - 1
   If Cells(x + 1, 1) = "" Then
      Cells(x + 1, 1) = mrg
      Else
      Set mrg = Cells(x, 1)
   End If
Next x

End Sub
Sub test()
Call tianc
Dim arr, i As Long, dic, brr()

Set dic = CreateObject("Scripting.Dictionary")
arr = Range("A2:B" & Cells(Cells.Rows.Count, "A").End(xlUp).Row)
ReDim brr(1 To UBound(arr))
For i = LBound(arr) To UBound(arr)
If dic(arr(i, 1)) = "" Then
      dic(arr(i, 1)) = i
      brr(i) = arr(i, 2)
Else
      brr(dic(arr(i, 1))) = brr(dic(arr(i, 1))) & "," & arr(i, 2)
End If
Next i

[C2].Resize(UBound(arr), 1) = WorksheetFunction.Transpose(brr)
Call heb

End Sub

ws278106483 · 发表于 2012-5-2 16:34

附件上传了。。。。

ws278106483 · 发表于 2012-5-2 16:35

点下按钮就可以了，要运行。TEST（）

ws278106483 · 发表于 2012-5-2 16:56

好像有点问题，，，==下，，
这个应该可以了。。
你看一下

ws278106483 · 发表于 2012-5-2 17:01

看一下操作，就是这个样子的，你看一下，对吗？

k411 · 发表于 2012-5-2 19:38

ws278106483 发表于 2012-5-2 16:34
附件上传了。。。。

多谢, 但是A列不能被修改. 帮忙再看看.

		自动登录	找回密码
密码			注册

[已解决]EXCEL合并公式请教<有点难啊>==紧急,在线求救<附件追加>

相关帖子