Совместимость с Windows Mac VBA - PullRequest
Новая
       21

Совместимость с Windows Mac VBA

0 голосов
/ 23 мая 2019

Я только что создал простой макрос в Windows Excel VBA.Office 365, файл .xslm.

. Копирует в столбце C каждое значение в столбце B, которого нет в столбце A.

Мне нужно знать, будет ли это выполняться на 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
...