VBA Excel英語2007在Excel 2016法語上導致錯誤消息

Question

我有此宏用於反轉所選行的順序。 此宏在excel 2007的英語PC上運行流暢，但在excel 2016的法語PC上無法運行。當在法語PC上運行時， For j = 1 To UBound(Arr, 2) / 2這一行錯誤消息

``編譯錯誤：語法錯誤''

  Sub FlipRows()
'Updateby20131126
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim i As Integer, j As Integer, k As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Arr = WorkRng.Formula
For i = 1 To UBound(Arr, 1)
    k = UBound(Arr, 2)
    For j = 1 To UBound(Arr, 2) / 2
        xTemp = Arr(i, j)
        Arr(i, j) = Arr(i, k)
        Arr(i, k) = xTemp
        k = k - 1
    Next
Next
WorkRng.Formula = Arr
End Sub

Answer 1

您將需要更改為;

這是一個引起問題的區域設置，分號的原因是與小數點分隔符不同，在許多國家中，小數點分隔符是逗號而不是點。

另一個選擇是更改Excel版本中的分隔符（，。和;）。