如何序号相同，对应的一行一行的数据，集中在同一单元格显示？

bbcc100

orr89

用字典记一下行号，然后用chr(10)连接输出就行

bbcc100

orr89 发表于 2020-3-13 22:26
用字典记一下行号，然后用chr(10)连接输出就行

这样有问题
Sub yy()
  Dim r%, i%, m%, arr(1 To 1000, 1 To 2)
  For r = 1 To [a65536].End(xlUp).Row
    If InStr(Cells(r, 1), Chr(10)) > 0 Then
      For i = 0 To UBound(Split(Cells(r, 1), Chr(10)))
        m = m + 1
        arr(m, 1) = Split(Cells(r, 1), Chr(10))(i)
        arr(m, 2) = Split(Cells(r, 2), Chr(10))(i)
      Next i
    Else
      m = m + 1
      arr(m, 1) = Cells(r, 1)
      arr(m, 2) = Cells(r, 2)
    End If
  Next r
  [a:b].Clear
  [a1].Resize(m, 2) = arr
  ActiveSheet.Rows.AutoFit
End Sub
http://club.excelhome.net/forum. ... ;page=1#pid10263394