Question

我刚刚在Windows Excel VBA中创建了一个简单的宏。 Office 365.xslm文件。

它的作用是将B列中所有不在A列中的值复制到C列中。

我需要知道它是否可以在Mac中运行。我不是Mac用户，也无法访问它。

有没有一种测试方法？有不兼容命令的列表吗？

Sub UniqueValues()
'
' UniqueValues Macro
' Finds unique values in column B not in A and copy to C
'
' Acceso directo: Ctrl+Mayús+U
'

Dim B As Integer
Dim C As Integer

Application.ScreenUpdating = False

B = Sheets("Sheet1").Range("B:B").Cells.SpecialCells(xlCellTypeConstants).Count
C = 1

For iRow = 1 To B 

    Dim Rng As Range
    If Trim(Sheets("Sheet1").Cells(iRow, 2).Text) <> "" Then
        With Sheets("Sheet1").Range("A:A")
            Set Rng = .Find(What:=Sheets("Sheet1").Cells(iRow, 2).Text, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Rng Is Nothing Then
               Sheets("Sheet1").Cells(C, 3).Value = Sheets("Sheet1").Cells(iRow, 2).Text
                C = C + 1
            End If
        End With

    End If
Next

Application.ScreenUpdating = True
End Sub

Windows Mac VBA兼容性

0 个答案: