excel表格公式转VBA A:A=IF(D:D="收货","-1","") A:A=IF(D:D="订货...答:程序:效果:代码:Option Explicit Sub 宏1()Dim arrA(), arrD(), n&, i& n = ActiveSheet.UsedRange.Rows.Count arrD = Range("d1").Resize(n, 1)ReDim arrA(1 To n, 1 To 1)For i = 1 To n Select Case arrD(i, 1)Case "收货"arrA(i, 1) = -1 Case "订货"arrA(i,...