給你做了一段宏命令,代碼如下,拷進去試一下,在運行前,做好備份并確保欲計算的表格處于活動狀態(tài)：Sub JianCe()Dim SUMz As DoubleDim SUMf As DoubleDim K As SingleDim KZmax As SingleDim KFmax As SingleDim KZ As...太感謝了，不過還需要對任意列進行運算，應(yīng)該怎么弄啊，比如說F列如果要對任意列進行上述運算，需要調(diào)整代碼段，只需要將代碼里的相關(guān)列號，如代碼cells（K，1）中的1調(diào)整為列號即可，不過可以在運行代碼前，先選擇一下欲排序的列，讓代碼自動獲得這個參數(shù)。不知道你這樣做是干嘛用？我為你調(diào)整一下代碼，在運行下列代碼前，請先點擊一下欲排序列中的任意單元格。代碼修正如下：Sub JianCe()Dim SUMz As DoubleDim SUMf As DoubleDim K As SingleDim KZmax As SingleDim KFmax As SingleDim KZ As SingleDim KF As SingleDim SUMzEND As SingleDim SUMfEND As SingleDim N As SingleN= ActiveCell.ColumnK = 2Do While ActiveSheet.Cells(K - 1, N) <> ""If Val(ActiveSheet.Cells(K - 1, N)) > 0 ThenSUMz = SUMz + Val(ActiveSheet.Cells(K - 1, N))KZ = KZ + 1ElseIf Val(ActiveSheet.Cells(K - 1, N)) < 0 ThenSUMf = SUMf + Val(ActiveSheet.Cells(K - 1, N))KF = KF + 1End IfIf Val(ActiveSheet.Cells(K - 1, N)) * Val(ActiveSheet.Cells(K, N)) <= 0 Then If KZ > KZmax ThenKZmax = KZSUMzEND = SUMzElseKZ = 0SUMz = 0End IfIf KF > KFmax ThenKFmax = KFSUMfEND = SUMfElseKF = 0SUMf = 0End IfEnd IfK = K + 1LoopActiveSheet.Cells(14, 2) = "連續(xù)正數(shù)個數(shù)"ActiveSheet.Cells(14, 3) = "連續(xù)正數(shù)合"ActiveSheet.Cells(14, 4) = "連續(xù)負數(shù)個數(shù)"ActiveSheet.Cells(14, 5) = "連續(xù)負數(shù)合"ActiveSheet.Cells(15, 2) = KZmaxActiveSheet.Cells(15, 3) = SUMzENDActiveSheet.Cells(15, 4) = KFmaxActiveSheet.Cells(15, 5) = SUMfENDEnd Sub注意：loop后面的語句是調(diào)整輸出位置的語句，自己可以調(diào)整的。