如何将数组中的元素移至末尾？含Redim Preserve场景问题求助

我来帮你搞定这个问题！你需要把指定元素移到数组最后，再通过ReDim Preserve删除它，又不能用ArrayList，对吧？我给你梳理清楚步骤和代码：

核心思路 #

要实现这个需求，关键分两步：

1. 找到目标元素的索引，然后把它挤到数组最后——通过将该索引之后的所有元素依次往前挪一位，这样目标元素自然就被推到数组末尾了。
2. 用ReDim Preserve缩小数组长度，移除最后一位（也就是我们要删除的目标元素），这样既保留了其他元素的顺序，又完成了删除操作。

具体代码实现 #

假设你的characters结构和数组定义是这样的（如果你的结构字段不同，直接替换就行）：

' 定义你的characters结构
Private Type characters
    charName As String
    charValue As Integer
    ' 可以添加其他你需要的字段
End Type

' 声明你的strChar数组
Dim strChar() As characters

1. 先写一个查找目标元素索引的函数（如果已经知道索引可以跳过）

如果你需要根据结构的某个属性（比如charName）找到要操作的元素，这个函数能帮你定位索引：

Function FindTargetIndex(arr() As characters, targetName As String) As Integer
    FindTargetIndex = -1 ' 默认返回-1表示未找到
    Dim i As Integer
    
    For i = LBound(arr) To UBound(arr)
        If arr(i).charName = targetName Then
            FindTargetIndex = i
            Exit Function ' 找到就退出，避免遍历全部
        End If
    Next i
End Function

2. 实现移动元素到末尾并删除的核心过程

这个子过程会把指定索引的元素移到最后，再缩容数组完成删除：

Sub MoveToEndAndDelete(ByRef arr() As characters, targetIndex As Integer)
    Dim i As Integer
    Dim arrUpper As Integer
    arrUpper = UBound(arr)
    
    ' 先检查索引是否合法，避免数组越界
    If targetIndex < LBound(arr) Or targetIndex > arrUpper Then
        MsgBox "目标索引不合法！"
        Exit Sub
    End If
    
    ' 把目标元素之后的所有元素依次往前挪一位，将目标元素挤到最后
    For i = targetIndex To arrUpper - 1
        arr(i) = arr(i + 1)
    Next i
    
    ' 缩容数组，移除最后一位（原目标元素）
    ReDim Preserve arr(LBound(arr) To arrUpper - 1)
End Sub

使用示例 #

比如你已经初始化了数组，现在要删除名为"B"的元素：

' 初始化数组示例
ReDim strChar(0 To 2) As characters
strChar(0).charName = "A"
strChar(1).charName = "B"
strChar(2).charName = "C"

' 找到目标元素的索引
Dim targetIdx As Integer
targetIdx = FindTargetIndex(strChar, "B")

' 如果找到就执行操作
If targetIdx <> -1 Then
    MoveToEndAndDelete strChar, targetIdx
    ' 操作后strChar数组长度变为2，元素是"A"和"C"
End If

为什么这个方法管用？ #

之前你找到的代码可能只是复制元素到顶部，而这个方法是真正的移动：通过覆盖操作把目标元素逐步推到数组最后，再用ReDim Preserve安全删除——因为ReDim Preserve只能修改数组的最后一维的上限，所以把要删的元素移到最后是最稳妥的方式，完全符合学校不能用ArrayList的要求。

内容的提问来源于stack exchange，提问作者Hannah Tucker