如何编写Excel宏程序自动进行调整工作表表头答:Sub 表头按要求调整()Dim Head, HeadOld, i%, j Head = Array("不用的0下标", "供货商", "序号", "订货代号", "产品名称", "数量")For i = 1 To UBound(Head)HeadOld = Range("A1", Cells(1, Columns.Count).End(xlToLeft))For j = 1 To UBound(HeadOld, 2)If HeadOld(1...