Question

需要大神帮忙了，VBA初学者。EXCEL 数据提取，表格A列为序号，B列为编号，C列为代号？

B列中有多个编号从几个到几十个不等，每个编号下边有多个代号，对应在C列中，需要提取每个编号下有多少个代号，并且需要提取同一个编号下的代号的起止号，提取的数据放到同一个表格中的‘Sheet 2’中任意位置，数据如图片，多谢。





Answer 1

Public Sub cfzzj007()
Dim CXrng As Range, XRrng As Range, i As Long
Set XRrng = Sheets("Sheet2").[a2]
For Each CXrng In Range("B3:B" & Range("B65536").End(xlUp).Row + 1)
If CXrng.Value <> CXrng.Offset(-1, 0).Value Then
XRrng.Value = CXrng.Value
If CXrng.Row <> 3 Then XRrng.Offset(-1, 1).Value = i
XRrng.Offset(0, 2).Value = CXrng.Offset(0, 1).Value
If CXrng.Row <> 3 Then XRrng.Offset(-1, 3).Value = CXrng.Offset(-1, 1).Value
i = 1
Set XRrng = XRrng.Offset(1, 0)
Else
i = i + 1
End If
Next
MsgBox "1261818399", , "Q"
End Sub

追问

不能用，EXCEL是2016版的，谢谢

追答

呵呵，我是用2007版测试的，可以正常使用。注意，你的是高版本。