|
原因:
1. 出库计划只有一行,宏中数组BRR变成了单变量!
修改如下:
Sub test8()
arr = Sheets("车间加工").UsedRange.Offset(2, 0)
R = Range("B65536").End(3).Row + 1
BRR = Range("B4:B" & R)
ReDim T(1 To R - 3)
For I = 1 To UBound(BRR)
For J = 1 To UBound(arr)
If BRR(I, 1) = arr(J, 2) Then T(I) = T(I) & " " & arr(J, 9)
Next
Next
Range("L4").Resize(UBound(T), 1) = Application.Transpose(T)
End Sub
2. 另外车间加工表中,同一个订单号,I 列中内容太多,总字数超出256个,合并到一个单元内将出错! |
|