VBA excel英语2007导致excel 2016法语错误信息

我有这个macros用于反转所选行的顺序。 这个macros运行顺利我的英文电脑与Excel 2007年，但不适用于我的法国电脑与Excel 2016年。当我运行它在法国电脑，这条线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

你需要改变;

这是一个引起问题的区域设置，分号的原因是与许多国家的逗号而不是点的小数点分隔。

另一种select是更改Excel版本中的分隔符（，。和;）