请帮忙分别生成一段运行于office Excel和WPS表格中的VBA代码。实现对指定两列信息间每行字符内容的差异数量，并生成在指定的位置。列的指定和生成位置的指定，希望都可以进行配置。在表格中可能存在多组两列信息需要比对。希望一次运行可以

以下是分别适用于Office Excel和WPS表格的VBA代码，可以实现对指定两列信息间每行字符内容的差异数量，并生成在指定的位置。列的指定和生成位置的指定都可以进行配置。在表格中可能存在多组两列信息需要比对。一次运行可以全部输出。 Office Excel VBA 代码： ``` Sub CompareColumns() Dim lastRow As Long Dim i As Long, j As Long, k As Long Dim col1 As String, col2 As String Dim diffCount As Integer '设置需要比对的两列信息的列号和输出结果的位置 col1 = "A" col2 = "B" k = 1 '获取需要比对的两列信息的最后一行 lastRow = Cells(Rows.Count, col1).End(xlUp).Row '循环遍历每一行，计算字符差异数量，并将结果输出到指定位置 For i = 1 To lastRow diffCount = 0 For j = 1 To Len(Cells(i, col1)) If Mid(Cells(i, col1), j, 1) <> Mid(Cells(i, col2), j, 1) Then diffCount = diffCount + 1 End If Next j Cells(k, "C").Value = diffCount k = k + 1 Next i End Sub ``` WPS表格 VBA 代码： ``` Sub CompareColumns() Dim lastRow As Long Dim i As Long, j As Long, k As Long Dim col1 As String, col2 As String Dim diffCount As Integer '设置需要比对的两列信息的列号和输出结果的位置 col1 = "A" col2 = "B" k = 1 '获取需要比对的两列信息的最后一行 lastRow = ActiveSheet.Cells.SpecialCells(xlLastCell).Row '循环遍历每一行，计算字符差异数量，并将