软件不给力，数组函数用了总出问题，能否用程序实现？

vba可以，很简单

能实现，但我觉得是你数据源的原因造成这么复杂，只放一个表就简单多了

多少给 点不敏感的数据，让练练手

1.没有对I列中的人名判断是否存在相应的表格。
Sub 循环整理表行()
Dim I_array() As String
Sheets("整理").Select
row_max = [A1].CurrentRegion.Rows.Count '拿到 整理表的最大行号
Debug.Print row_max
For r = 3 To row_max
I_array = Split(Cells(r, 9).Value, "、") '拿到I列数据拆分后的数组
Call 循环数组(I_array, r)
Next r
End Sub
Sub 循环数组(arr, r)
'MsgBox "下一个"
For i = 0 To UBound(arr)
Debug.Print arr(i)
'拿到人名，就需要打开表格，将当前行内容写入到人名表
Sheets("" & arr(i) & "").Select
name_row_max = Sheets("" & arr(i) & "").Cells(Sheets("" & arr(i) & "").Rows.Count, 17).End(xlUp).Row '拿到P列最大行号
Sheets("" & arr(i) & "").Cells(name_row_max + 1, 16) = Sheets("整理").Cells(r, 4).Value '姓名表中的P列 = 整理表中D列
Sheets("" & arr(i) & "").Cells(name_row_max + 1, 17) = Sheets("整理").Cells(r, 5).Value 'Q=E
Sheets("" & arr(i) & "").Cells(name_row_max + 1, 18) = Sheets("整理").Cells(r, 6).Value 'R=F
Sheets("" & arr(i) & "").Cells(name_row_max + 1, 19) = Sheets("整理").Cells(r, 7).Value 'S=G
Debug.Print arr(i) & "的最大行数是" & name_row_max
Next i
Sheets("整理").Select
End Sub