救救孩子吧,这个Excel的数据怎么用VBA解决?答:Sub test1()Dim i&, j&, arr, brr(), crr, r&, a, b, d As Object r = Cells(Rows.Count, 1).End(xlUp).Row ReDim brr(1 To r - 1)For i = 2 To r arr = Application.Transpose(Application.Transpose(Range("a" & i & ":d" & i)))a = Join(arr, "|")brr(i ...