如何用Offset函数拆分单元格球员信息并保留全名在指定列展示

原代码通过Split函数按空格拆分所有内容，导致包含空格的球员全名被拆分为名和姓，无法满足需求。以下是修正后的代码及逻辑说明：

修正后的代码 #

Sub ParsePlayerInfo()
    Dim ACC As Worksheet
    Dim lastRow As Long
    Dim playerCell As Range
    Dim splitArr As Variant
    Dim fullName As String
    Dim position As String
    Dim school As String
    Dim i As Integer

    Set ACC = ThisWorkbook.Worksheets("ACC Statistics")
    lastRow = ACC.Cells(ACC.Rows.Count, "A").End(xlUp).Row
    
    '遍历A列所有球员信息单元格
    For Each playerCell In ACC.Range("A1:A" & lastRow)
        If Trim(playerCell.Value) <> "" Then '跳过空单元格
            splitArr = Split(playerCell.Value)
            
            '确保内容格式符合「全名 位置 院校」的最小要求
            If UBound(splitArr) >= 2 Then
                '提取院校：拆分后的最后一个元素
                school = splitArr(UBound(splitArr))
                '提取位置：拆分后的倒数第二个元素
                position = splitArr(UBound(splitArr) - 1)
                '拼接全名：从第一个元素到倒数第三个元素，用空格连接
                fullName = ""
                For i = LBound(splitArr) To UBound(splitArr) - 2
                    fullName = fullName & splitArr(i) & " "
                Next i
                fullName = Trim(fullName) '移除末尾多余空格
                
                '写入偏移12列开始的对应列
                playerCell.Offset(0, 12).Value = fullName '全名放在A列向右偏移12列（M列）
                playerCell.Offset(0, 13).Value = position '位置放在N列
                playerCell.Offset(0, 14).Value = school '院校放在O列
            End If
        End If
    Next playerCell
End Sub

关键修改说明 #

• 拆分逻辑调整：不再将所有拆分元素逐个写入列，而是从后往前定位位置和院校，剩余部分拼接为完整全名，确保全名不会被拆分
• 增加容错处理：跳过空单元格，同时校验拆分后的数组长度，避免因内容格式错误导致运行报错
• 使用Offset定位：直接通过Offset(0,12)等方法定位目标列，完全匹配需求中的偏移要求

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