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

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 CXrngValue <> CXrngOffset(-1, 0)Value Then

XRrngValue = CXrngValue

If CXrngRow <> 3 Then XRrngOffset(-1, 1)Value = i

XRrngOffset(0, 2)Value = CXrngOffset(0, 1)Value

If CXrngRow <> 3 Then XRrngOffset(-1, 3)Value = CXrngOffset(-1, 1)Value

i = 1

Set XRrng = XRrngOffset(1, 0)

Else

i = i + 1

End If

Next

MsgBox "1261818399", , "Q"

End Sub

按你的要求录制一个宏（注意选择适当位置停止录制），然后打开VB编辑器就可以查看该宏的代码了。

打开方法如下：

点"工具"->"宏"->"宏"，找到你录制的宏名，点"编辑"即可进入VB编辑器。

以上就是关于需要大神帮忙了，VBA初学者。EXCEL 数据提取，表格A列为序号，B列为编号，C列为代号全部的内容，包括:需要大神帮忙了，VBA初学者。EXCEL 数据提取，表格A列为序号，B列为编号，C列为代号、VBA编程怎么设定并得到Excel数据菜单下：有效性->设置，然后点允许序列下的序列值、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！