Boa tarde,
Estou com o seguinte problemas: preciso inverter os dados de diversas linhas, mas não tenho como fazer isso manualmente (20 mil linhas, 4 mil colunas). Procurando na internet, encontrei um site com um código que resolveria meu problema ( https://www.extendoffice.com/documents/ ... -rows.html). O código é o seguinte:
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
Porém, quando tento rodar esse macro, recebo a mensagem "erro de sintaxe" enquanto a linha de commando "For j = 1 To UBound(Arr, 2) / 2" fica destacada em vermelho. Alguém saberia como resolver esse problema?
Postado : 26/05/2017 9:42 am