Sub 数据表填数() arr = Sheets("SI").UsedRange For i = 1 To UBound(arr, 2) If arr(1, i) = "货号" Then ss = ss & "|" & i: s2 = s2 & "|" & 4 If arr(1, i) = "P/O" Then ss = ss & "|" & i: s2 = s2 & "|" & 2 If arr(1, i) = "TotalPcs" Then ss = ss & "|" & i: s2 = s2 & "|" & 5 If arr(1, i) = "C/NO." Then ss = ss & "|" & i: s2 = s2 & "|" & 6 If arr(1, i) = "净重KGS" Then ss = ss & "|" & i: s2 = s2 & "|" & 8 If arr(1, i) = "总毛重KGS" Then ss = ss & "|" & i: s2 = s2 & "|" & 9 Next s = Split(ss, "|") s22 = Split(s2, "|") ReDim brr(1 To UBound(arr), 1 To 13) For i = 2 To UBound(arr) brr(i - 1, 1) = i - 1 For j = 1 To 6 brr(i - 1, --s22(j)) = arr(i, --s(j)) Next If i = 2 Then brr(i - 1, 7) = brr(i - 1, 6) brr(i - 1, 6) = 1 Else If brr(i - 1, 6) > 0 Then brr(i - 1, 7) = brr(i - 2, 7) + brr(i - 1, 6) brr(i - 1, 6) = brr(i - 2, 7) + 1 End If End If Next brr(1, 13) = brr(UBound(arr) - 1, 2) brr(UBound(arr) - 1, 2) = "" brr(UBound(arr) - 1, 1) = "" [a10].Resize(i - 1, 13) = brr End Sub

这段代码的意思是：

1. 定义了一个 Sub 函数 "数据表填数"。
2. 定义了一个数组 "arr"，它等于 "Sheets("SI")" 工作表中的已使用的范围。
3. 通过 "For" 循环，对 "arr" 中的每一列进行操作：
a. 如果该列的第一行的值为 "货号"，则 "ss" 取值不变。

注意：代码未完整，缺失部分无法确定它的完整意图。