优化代码： Select Case i Case 1 cmdCommandText = insert into ReportSecondBodyID1ValueRowCol values cmdParametersAppend cmdCreateParametervalue0 adVarChar adParamInput 255

'优化后的代码： For i = 1 To 15 cmd.CommandText = "insert into ReportSecondBody(ID1,[Value],Row,Col) values (?,?,?,?)" cmd.Parameters.Append cmd.CreateParameter("value0", adVarChar, adParamInput, 255, i) cmd.Parameters.Append cmd.CreateParameter("value1", adVarChar, adParamInput, 255, Range(Split("D8,E8,F8,B8,C8,D9,E9,F9,B9,C9,D10,E10,F10")(i - 1)).Value) Select Case i Mod 5 Case 1 cmd.Parameters.Append cmd.CreateParameter("value2", adVarChar, adParamInput, 255, 0) cmd.Parameters.Append cmd.CreateParameter("value3", adVarChar, adParamInput, 255, 0) Case 2 cmd.Parameters.Append cmd.CreateParameter("value2", adVarChar, adParamInput, 255, 0) cmd.Parameters.Append cmd.CreateParameter("value3", adVarChar, adParamInput, 255, 1) Case 3 cmd.Parameters.Append cmd.CreateParameter("value2", adVarChar, adParamInput, 255, 0) cmd.Parameters.Append cmd.CreateParameter("value3", adVarChar, adParamInput, 255, 2) Case 4 cmd.Parameters.Append cmd.CreateParameter("value2", adVarChar, adParamInput, 255, 0) cmd.Parameters.Append cmd.CreateParameter("value3", adVarChar, adParamInput, 255, 3) Case 0 cmd.Parameters.Append cmd.CreateParameter("value2", adVarChar, adParamInput, 255, 1) cmd.Parameters.Append cmd.CreateParameter("value3", adVarChar, adParamInput, 255, 4) End Select Next