vba 如何倒排row 数组?
发布网友
共1个回答
热心网友
Private Sub CommandButton1_Click()
Dim arr
'获取数组，这里可以替换为从外部获取数组的借口
arr = Array("1", "2", "3", "4", "5", "6")
Dim i As Integer
Dim tmp
'打印元数组
For i = 0 To UBound(arr)
Cells(i + 1, 1) = arr(i)
Next i
'循环至(ub+1)/2并倒叙
For i = 0 To (UBound(arr) + 1) / 2
tmp = arr(i)
arr(i) = arr(UBound(arr) - i)
arr(UBound(arr) - i) = tmp
Next i
'打印倒叙数组
For i = 0 To UBound(arr)
Cells(i + 1, 2) = arr(i)
Next i
End Sub
热心网友
Private Sub CommandButton1_Click()
Dim arr
'获取数组，这里可以替换为从外部获取数组的借口
arr = Array("1", "2", "3", "4", "5", "6")
Dim i As Integer
Dim tmp
'打印元数组
For i = 0 To UBound(arr)
Cells(i + 1, 1) = arr(i)
Next i
'循环至(ub+1)/2并倒叙
For i = 0 To (UBound(arr) + 1) / 2
tmp = arr(i)
arr(i) = arr(UBound(arr) - i)
arr(UBound(arr) - i) = tmp
Next i
'打印倒叙数组
For i = 0 To UBound(arr)
Cells(i + 1, 2) = arr(i)
Next i
End Sub
热心网友
Private Sub CommandButton1_Click()
Dim arr
'获取数组，这里可以替换为从外部获取数组的借口
arr = Array("1", "2", "3", "4", "5", "6")
Dim i As Integer
Dim tmp
'打印元数组
For i = 0 To UBound(arr)
Cells(i + 1, 1) = arr(i)
Next i
'循环至(ub+1)/2并倒叙
For i = 0 To (UBound(arr) + 1) / 2
tmp = arr(i)
arr(i) = arr(UBound(arr) - i)
arr(UBound(arr) - i) = tmp
Next i
'打印倒叙数组
For i = 0 To UBound(arr)
Cells(i + 1, 2) = arr(i)
Next i
End Sub
热心网友
Private Sub CommandButton1_Click()
Dim arr
'获取数组，这里可以替换为从外部获取数组的借口
arr = Array("1", "2", "3", "4", "5", "6")
Dim i As Integer
Dim tmp
'打印元数组
For i = 0 To UBound(arr)
Cells(i + 1, 1) = arr(i)
Next i
'循环至(ub+1)/2并倒叙
For i = 0 To (UBound(arr) + 1) / 2
tmp = arr(i)
arr(i) = arr(UBound(arr) - i)
arr(UBound(arr) - i) = tmp
Next i
'打印倒叙数组
For i = 0 To UBound(arr)
Cells(i + 1, 2) = arr(i)
Next i
End Sub
