需要大神帮忙了，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

ThisWorkbookSheetsApplicationActiveSheetIndex

返回当前工作表在当前工作簿的序号，我在VBA中用自定义函数可行！

Function aaa() As Integer

aaa = ThisWorkbookSheetsApplicationActiveSheetIndex

End Function

Win32_BaseBoard表示的是32位主板，您的 *** 作系统是64位的，所以无法正常运行。

改成Win64_BaseBoard试试，之前用过win7 64位旗舰版，兼容性不好。。

以上就是关于需要大神帮忙了，VBA初学者。EXCEL 数据提取，表格A列为序号，B列为编号，C列为代号全部的内容，包括:需要大神帮忙了，VBA初学者。EXCEL 数据提取，表格A列为序号，B列为编号，C列为代号、Excel vba如何获知已循环到的工作表是第几张表、求一个写好的VBA读取主板序列号等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！